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Chapter 1 
Introduction 


The documentation and visual correlation of radar images with their associated 
targets is a continuing problem since a radar image is not necessarily recogniz- 
able on its own. Figure 1 is an inverse synthetic aperture radar (ISAR) image 
of an aircraft test body [2]. This problem is particularly acute for high speed, 
high resolution imaging techniques, such as the 3-D scattering center imaging as 
proposed by Dominek, et al. [1] The usual solution to this problem is to superim- 
pose the radar image on a scaled outline drawing of the target. Figure 2 shows 
an example of this method, showing the ISAR image of Figure 1 superimposed 
on an outline drawing of the target [2]. This technique is used for both computer 
displays and for publications. While this gives the observer information about the 
outline surface of the target, it does not convey information about specific target 
features, such as joints, window openings, etc., all of which can cause significant 
radar image features. Further, it does not provide documentation of the target 
itself or any modifications that might have been carried out on the target, such as 
the application of absorbent material to specific areas of the target. 

A far better solution to this problem is proposed in this report. If, instead 
of an outline drawing, let us imagine the radar image superimposed with a video 
image of the actual target. In this way, many more features of the target become 
evident, such as joints, window openings, surface treatment, fasteners (bolt and 
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Figure 1: ISAR image of an aircraft test body. 
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Figure 2: ISAR image with outline of target. 

rivet heads), etc., can be easily identified. Additionally, it provides unambiguous 
documentation of the target and modifications made to the target. Figure 3 is a 
screen print from the system described in this report. (Note: magnitude data in 
the radar images in this report has been suppressed to offset the limitations of black 
and white reproduction.) The figure shows the same target as in Figure 2 with a 
scattering center radar image superimposed on it. Clearly, the method described 
herein provides much more information about the target than in Figure 2. Such a 
system can also be an extremely useful diagnostic tool for diagnostic radar ranges, 
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serving as a visual check on the validity of the data during the data collection and 


processing sequence. 
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Figure 3: Scattering center image superimposed on a video image of the target. 

The system described in this report is composed of a high-speed graphics work- 
station interfaced to two video cameras. It is also interfaced to the data acquisition 
computer which controls the compact radar range hardware. Two independent 
pieces of software running concurrently on the graphics workstation handle the 
data processing and the radar/video image display. This report focuses on the 
video/radar image acquisition and display portion of the system. This system was 
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developed for use in the compact radar range measurement facility at the Ohio 
State University ElectroScience Laboratory. 


Chapter 2 


Compact Range and Radar 
Imaging Principles 


While there are several different techniques for generating radar images, they are 
all closely related to radar cross section (RCS) measurement and analysis. High 
resolution time or frequency domain data is required to produce these images, so 
any discussion of radar imaging techniques must begin with a description of the 
techniques used to generate this data. 

2.1 Compact Range Theory and Operation 

Pure time domain measurements are difficult to achieve, so an equally viable 
method of producing this data is to measure data in the frequency domain and 
then transform it, using the inverse Fourier transform, to the time domain. A 
diagram of an RCS measurement system is shown in Figure 4. The important el- 
ements in the system are a swept-frequency transmitter, a receiver, a broad-band 
antenna system, a recording and processing system and a target pedestal which 
may be rotated to position the target. For most imaging techniques, the target 
must be in the far field zone of the antenna, and in order to conserve space, this 
is achieved by placing the feed antenna at the focus of a parabolic reflector. The 
parabolic reflector produces a plane wave in the area of the target, and the system 
is known as a compact range RCS measurement system. 
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Three basic problems must be overcome in any RCS measurement system. 
First, the system must be calibrated to compensate for variations in system gain. 
Second, clutter from scatterers other than the target must be reduced to acceptable 
levels. And finally, compensation must be made for system drift. 



2.1.1 System Calibration 

The variations in system gain as a function of frequency are determined and com- 
pensated for by comparing measured RCS data with the theoretical RCS data of 
the same target. A sphere is usually used as the target for this procedure, as the 
theoretical RCS of a sphere as a function of frequency is easily calculated. The 
following equation defines the system gain : 

„ J _ . Ref erenceData 

bystemGam = — : — 

Theoretical Data 
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where Reference Data is the measured backscattered fields of a sphere as a 
function of frequency and Theoretical Data is the backscattered fields of a sphere 
as a function of frequency as calculated by the MEI solution [3]. 

The target data is calibrated by dividing it by the system gain, giving the 
following calibration equation : 


CalibratedData = 


RawData 


Theoretical Data 


( 2 ) 


Re ferenceData 

where Raw Data is the measured backscattered fields as a function of frequency 
of the target under measurement. 

This allows the variations in system gain to be removed from the raw data 
before performing the transformation to the time domain. 


2.1.2 Clutter Reduction 

Virtually any object, aside from the target itself, in the radar range will cause clut- 
ter which interferes with desired the RCS measurement. The antenna mismatch, 
the parabolic reflector, and the walls of the room are all major clutter sources. 
However, most of these components can be removed from the received signal by 
time gating. Figure 5 illustrates the timing of these various components. At time 
<oj a transmit pulse is sent to the feed antenna. There is an immediate return due 
to the impedance mismatch in the antenna. At time fj, the receiver receives the 
direct return from the reflector. At time i 2 > the desired signal from the target is 
received and finally, at time <3, the reflection from the back wall of the room is 
received. So that only the desired return from the target is received, the receiver 
is only enabled during the ’range gate’ surrounding the target return. The timing 
and length of the range gate are determined by the position and size of the target 
so that unwanted reflections are kept to a minimum. Even with the range gating 
technique, there is still enough residual clutter that another technique must be 
applied. This is known as background subtraction. 
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MISMATCH WALL 

Figure 5: The timing diagram of various clutter and target returns. 

Background subtraction may be used to remove clutter which is present within 
the receive range gate since the system can measure the complex scattered fields. 
This clutter is from scatterers in close proximity to the target itself, such as the 
target pedestal and absorber. A background scan is performed first, without the 
target in place. RCS scans of the target are then made and the background scan 
data is subtracted from this data. This process removes the contributions from the 
unwanted scatterers in the frequency domain data. This process works successfully 
provided that there is little or no electromagnetic interaction between the target 
and the pedestal or chamber. 

2.1.3 Compensation for System Drift 

Any analog electronic equipment is subject to long term drift due to temperature 
and aging effects on the components. The effects of this drift can be removed 
from the data by comparing the measured raw data with data from a fixed target 
which is always present in the range. In the OSU compact range, the backscatter 
from the parabolic reflector is used as this reference target. The compensation is 
performed by switching the receive gate between the reference and target returns. 
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The target data is then scaled to the reference data. Since the time difference 
between the reference and target measurements is very small, very little drift can 
occur within this short period. This procedure minimizes the variations due to 
system drift. 

2.2 Inverse Synthetic Aperture Radar Imaging 

The traditional method of producing radar images from a fixed radar system is 
known as inverse synthetic aperture radar (ISAR) imaging [5] . In this method, the 
target is rotated through 360 degrees (for a fully focussed image) and frequency 
domain response data is recorded at small incremental angles. A two dimensional 
inverse Fourier transform is then applied to this data to yield a two dimensional 
image matrix, with the elements of the matrix representing the relative response 
at a particular down range and cross range location. Since the radar signal travels 
at the speed of light, the absolute down range and cross range location can be 
inferred from this data. 

One of the severe disadvantages of this method is the amount of data required 
to produce the image and, hence, the computational resources needed. Typically, 
a fully focussed ISAR image requires approximately 30-60 minutes of CPU time on 
the Digital Equipment Corporation VAX 8550 at the ElectroScience Laboratory. 
Clearly, it is not possible to apply this method to a high speed radar imaging 
system, although this method does produce a high quality image. Figure 6 is an 
ISAR image of a tilted square plate, from data scanned over 90 degrees. The 
responses outside the obvious boundaries of the plate are due to interaction terms, 
which are caused by energy coupling to the surface of the plate and diffracting off 
the edges and corners. Note that the image processing is based on direct scatter 
back to the radar which means that mechanisms that propagate on the surface of 
the target are not imaged properly. Thus, these terms don’t appear on the extent 
of the target. 
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2.3 Scattering Center Imaging 

While the traditional ISAR method described above assumes that either the target 
or the radar can be rotated to gather data at the required look-angles, some targets 
cannot be rotated due to size or fragility. For common RCS measurements, the 
usual solution is to laterally defocus the feed to obtain backseat ter measurements 
over a relatively small range of look-angles. However, this assumes that the phase 
front of the incident wave remains planar as the feed is laterally displaced and 
this is only valid for small displacements. The phase front produced by lateral 
displacement of the feed is actually astigmatic or nonspherical and cannot be 
used for imaging, where absolute phase accuracy is required. Recently however, a 
technique for focussing this astigmatism has been developed at the ElectroScience 
Laboratory [4]. Further, this technique is applicable to both near- and far-zone 
measurements. 

This technique makes use of the fact that the target area of the compact radar 
range is well defined. If an arbitrary down-range image plane is defined in the 
target area, then there will be a well defined distance between a test point in the 
image plane to each feed element or feed location. Subsequently, the phase of the 
backscattered field received at each feed element from a scatterer located at the test 
point can be calculated. If the measured backscattered field is multiplied by the 
complex conjugate of the calculated phase and summed over all the feed elements, 
then the backscattered field from points in the image plane where scatterers exist 
will sum coherently, and incoherently for all other points. Consequently, a cross- 
range image of the scattering centers will be obtained. The down-range location 
of a scattering center is found either by moving the image plane or by a frequency 
scan procedure, as outlined in [4]. Figure 7 shows a radar image, displayed as a 
surface plot, of three spheres generated using this method. 

The main advantage of this technique is that the target does not have to be 
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Figure 7: Scattering center image of three spheres. 

rotated to obtain the scattering center image, thereby making this process very 
fast, and therefore it is well suited to producing images in real time. 

2.4 Time Domain Response Tracking 

Another method of creating radar images is known as Time Domain Response 
Tracking. This approach requires a minimum of two swept frequency scans at 
different look angles or different feed positions. Each swept frequency scan is the 
backscatter response of the target which is transformed to the time domain to 
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Figure 8: Time-domain tracking image of a aircraft test body. 

find the down range location of the scattering centers. The cross range location 
of the scattering centers is obtained from the change in position of the time do- 
main scattering features between successive look angles. Calculating the impulse 
response from the frequency scans requires only a one dimensional Fourier trans- 
form. The white rectangles in Figure 8 represent the radar image of a aircraft test 
body generated using this technique. 

Obviously, since a minimum of two one dimensional transforms are required, 
this method is extremely fast, and it has the advantage that the relative ampli- 
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tudes between the various scattering centers are well known. The disadvantage to 
this method is that there are substantial ambiguities in the tracking of the time 
domain scattering features. However, recent work with this method has improved 
by adding tracking algorithms used to correlate the scattering features between 
successive look angles. 

2.5 Image Presentation 

The radar image display system described in this report is capable of displaying 
radar images generated by any of these methods, but since the system was designed 
to display the images in real time, the high speed imaging techniques are of more 


interest. 


Chapter 3 

System Hardware 

3.1 Introduction 

The radar image display system described in this report was envisioned to operate 
in real time, in the sense that the imaging system could operate concurrently with 
the data collection and processing system. Further, the imaging system needs the 
capability to capture and display video images together with color presentations of 
scattering center images. In addition to these basic requirements, it was felt that 
the ability to transfer the video/radar image to video tape would be invaluable, 
particularly to visiting users of the facility. 

The choices involved in selecting the system hardware were made based both 
on availability and functionality. The system was originally implemented on two 
IBM PC/AT’s and a DEC VAX 8550, as outlined in Figure 9. This original system 
was tested for functionality and ease of use for several weeks. While this evaluation 
confirmed the usefulness of the concept, the speed limitations inherent with that 
approach didn’t make it as attractive as necessary for day-to-day operations. It 
was found that the primary speed limitation was the necessity to send raw data 
to the VAX and then send processed data back to the PC used to display the 
images. The software needed in the PC was too slow to maintain the desired image 
rate. Writing new software for the image display PC was investigated, but it was 
decided that even this would not solve the problem. At this point, it was obvious 
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Figure 9: Block diagram of PC/AT - based imaging system. 

that a whole different system would be necessary. In fact, it was decided that 
the processing and image display had to be done on the same computer. Several 
options, such as adding an array processor to the PC, were explored, but these 
were also too slow. The Tektronix XD88-30 Graphics Workstation was chosen 
due to it’s extremely high speed, it’s ability to process and display high resolution 
graphics and because it is a multi-tasking computer, which is capable of running 
more than one process at a time. The other components of the system were 
chosen to be compatible with the XD88-30. The system hardware consists of 
the Tektronix XD88-30 Graphics Workstation, an Imaging Technologies FG100V 
Video Processing board, a Matrix Corporation VME Parallel I/O board, two NEC 
Corporation NC-8 Color Video Cameras, an IBM PC/AT, and a Data Translation 
Parallel I/O board. The interconnections between the various components are 
shown in Figure 10. 
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Figure 10: Block diagram of XD88 - based imaging system. 

3.2 Tektronix XD88-30 Workstation 

The Tektronix XD88-30 is a new super-mini graphics workstation, designed to 
handle both graphics processing/display and data processing. It runs under the 
UTEK System V operating system (a variation of the UNIX operating system). 
The normal user interface which is used in this system is X-Windows, which is 
described in detail in a later chapter. The XD88-30 used in this system has 16M 
bytes of main memory, a 160M byte hard disk and a high speed streaming tape 
drive. The system display is a 19 inch (diagonal) full color RGB monitor with 
1280x1024 pixel resolution. 

3.3 Imaging Technology FG100V Video Proces- 
sor 

The Imaging Technology FG100V Video Processor is a VME-bus compatible circuit 
board installed in the XD88-30. It functions as a video frame grabber which 
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digitizes a frame from a video camera or other video source and stores this digitized 
video image in its own on-board memory. This data is then available to the host 
computer for processing and display, or the image can be displayed on a separate 
video monitor connected directly to the board. The FG100V is capable of storing 
up to four separate frames of video, which are captured from any one of four video 
inputs. Each frame of video is digitized to a resolution of 512x480 pixels (from an 
NTSC standard composite video signal). In addition, the FG100V has provisions 
for many specialized image processing techniques, although in this application 
these capabilities are not used. 

3.4 NEC Corporation NC-8 Video Camera 

The NEC NC-8 Video Camera is a color video camera which is suited to the low 
light-level conditions found in the compact range at The Ohio State University’s 
ElectroScience Laboratory. Two of these cameras are used : one mounted on an 
overhead crane to provide a top view of the target (showing the target in the X-Y 
plane) and another is mounted on the wall of the compact range room to provide 
a side view of the target (showing the target in the Y-Z plane). 

3.5 Matrix VME Parallel I/O Board 

The Matrix VME Parallel I/O board is a VME-bus compatible 32- bit digital I/O 
board installed in the XD88-30. It, along with the companion board installed in 
the IBM PC/AT, serves as a high speed parallel communication bus between the 
XD88-30 and the IBM PC/AT. 

3.6 IBM PC/AT 

The IBM PC/AT controls the compact radar range hardware and handles data 
collection [6]. Raw data is transferred to the XD88-30 on the 32-bit parallel I/O 
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bus, where all data processing, display, and data storage is done. The IBM PC/AT 
unit used in this system is configured with 640K bytes of main memory and 2M 
bytes of extended meory. The system monitor is an EGA-compatible RGB display. 

3.7 Data Translation Parallel I/O Board 

The Data Translation Parallel I/O Board is a circuit board installed in the IBM- 
PC/AT. It is the companion board to the Matrix Parallel I/O board installed 
in the XD88-30 and is used to transfer data between the IBM PC/AT and the 
XD88-30. 
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Chapter 4 

X-Windows Overview 


The X-Windows user interface was chosen for this system because it provides a 
programming environment specifically designed to allow graphical user interfaces 
to exist in a multi-user network environment. Although X-Windows provides a 
very extensive set of basic functions for creating and manipulating graphics, these 
functions tend to be too basic for creating large applications [9]. Therefore, most 
X-Window programming packages also include a set of graphics objects known 
as ’widgets’ and a set of functions for creating and manipulating these widgets. 
For this project, the widget set created at MIT known as the Athena widget set 
[ Xaw ] and the widget toolbox known as Xt toolbox [ Xt ] was used [7,8]. 

4.1 Widget Programming 

Since X-Windows is a hierarchical system, all widgets are said to be either a 
’toplevel’ widget or ’children’ of some other widget. Below a toplevel widget, all 
the children are organized in a tree structure such that an operation performed on 
a parent (such as deleting the parent) usually affects all the children below it in the 
tree structure. Within a program, a widget is actually just a specific instance of 
a dynamically allocated data structure which holds all the information necessary 
to describe the widget. In addition to setting the parameters which describe the 
appearance and the hierarchy of widgets, the major task of the programmer is to 
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describe what action is to be taken in response to the various actions of the user. 

The primary benefit of a software environment, such as Xaw and Xt, is the 
consistency of the interface between the programmer and the system. All widgets 
have a common set of basic parameters. Identification of the parent widget, loca- 
tion of the widget within the parent widget, foreground and background colors, as 
well as others are specified for all widgets. In addition, parameters specific to each 
type of widget are included. Further, these parameters can be set either within 
the program, at run-time from a data file or from a command line. The details of 
widget appearance and programming are best illustrated with several examples. 

4.1.1 Example : The Command Button Widget 

The Command Button Widget is a rectangle that contains a text label. When 
the pointing device 1 cursor is placed within the rectangle, its border is highlighted 
to indicate that the button is available for selection. When the pointing device 
button is clicked, the command button widget is selected and the callback routine 
associated with the widget is executed. When creating a command button widget, 
numerous resources are available to the programmer to control the appearance and 
behavior of the widget. Table 1 lists the available resources, the default value and 
a brief description of what each resource does. 

The menu of X-Radar is made up of command button widgets, each of whose 
callback routines accomplishes a particular task. These callback routines can be 
very simple, such as the ’EXIT’ button, which simply exits the program, or very 
complex, as is the callback for the ’RTDP IMAGING’ button, which itself contains 
a separate event processing loop. Further, the resources associated with a partic- 
ular widget can be changed dynamically during program execution. For example, 
the text labels for some of the buttons in the menu of X-Radar are changed dynam- 
ically to reflect the possible menu choices the user has available at a given moment. 

J A pointing device is a mouse or trackball 


22 


Table 1: Command button widget resources and their default values. 


Name 

Default Value 

Description 

XtNbackground 

White 

Window background color 

XtNbackgroundPixmap 

none 

Window background pixmap 

XtNborderColor 

Black 

Window border color 

XtNborderPixmap 

none 

Window border pixmap pattern 

XtNborder Width 

1 

Width of button border in pixels 

XtNcallback 

NULL 

Callback for button select 

XtNcursor 

opendot 

Pointer cursor style in widget 

XtNdes troy Callback 

NULL 

Callback for XtDestroy Widget 

XtNfont 

fixed 

Label font 

XtNforeground 

Black 

Foreground color 

XtNheight 

text height 

Button height in pixels 

XtNhighlightThickness 

2 

Width of highlighted border in pixels 

XtNinsensitiveBorder 

Gray 

Border color when not sensitive 

XtNintcrnalHeight 

2 

Internal border height for highlight 

XtNinternal Width 

2 

Internal border width for highlight 

XtNjustify 

XtJustifyCenter 

Type of text alignment 

XtNlabel 

Button name 

Button label 

XtNmappedWhenManaged 

True 

Whether XtMap Widget is automatic 

XtNsensitive 

True 

Whether widget receives input 

XtNtranslations 

none 

event-to-action translations 

XtNwidth 

text width 

Button width in pixels 

XtNx 

0 

Widget x coordinate in pixels 

XtNy 

0 

Widget y coordinate in pixels 
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Table 2: Box widget resources and their default values. 


Name 

XtNbackground 
XtNbackgroundPixmap 
XtNborderCoIor 
XtNborderPixmap 
XtNborder Width 
XtNdestroyCallback 
XtfThSpace 
XtNheight 

XtNmappedWhenManaged 
XtNtranslations 
XtNvSpace 
XtNwidth 
XtNx 0 

XtNy 0 


Window background color 
Window background pixmap 
Window border color 
Window border pixmap pattern 
Width of button border in pixels 
Callback for XtDestroy Widget 
Horizontal space between children 
Button height in pixels 
Whether XtMapWidget is automatic 
event-to-action translations 
Vertical space between children 
Button width in pixels 
Widget x coordinate in pixels 
Widget y coordinate in pixels 


Default Value Description 
White 
none 
Black 
none 
1 

NULL 
4 

text height 
True 
none 
4 

text width 


This capability allows the same command button to accomplish several different 
tasks, thereby saving system resources and speeding up program execution. 

4.1.2 Example : The Box Widget 

The box widget provides an environment which manages the placement of other 
arbitrary widgets within a box of specified dimensions. The children are rear- 
ranged to best fit within the box when the box is resized or when children are 
added or deleted. Since the placement of children within the box is automatic, the 
programmer has little control over the arrangement of the children. Table 2 lists 
the available resources and their description. 
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The menu area for X- Radar is contained in a box widget, although some control 
over placement of the command button widgets and label widgets is achieved by 
carefully sizing them so that they only fit within the box in a vertical arrangement. 
The advantage of using a box widget is that the programmer need not calculate the 
exact screen coordinates for each child widget, as would need to be done if a menu 
were constructed without the box. Further, if the menu needs to be suppressed at 
some point during program execution, only the box widget needs to be ’unmapped’, 
which will cause all of its children to be unmapped as well. 

There are several methods for actually creating a widget with the desired re- 
source values, and the interested reader is referred to Appendix B for the method 
used for this system or to [10] for other methods. 

4.2 Event Model Programming 

Menu-style user interfaces are said to be event-driven which means that the pro- 
gram appears to be doing nothing until the user generates an ’event’. Events are 
usually generated by moving and/or clicking the pointing device, typing a key on 
the keyboard or by timers created within the program. X- Windows also provides 
the tools to describe and accept events from any other device which might be 
attached to the computer system. 

Each particular type of widget provides its own mechanism for accepting events. 
Part of a widget’s description are parameters which associate particular events with 
the widget and what action is to be taken following those particular events. It is 
the job of the programmer to create logical and useful action sequences for each 
particular event, such as what to do after the user clicks a mouse button on a 
’button’ widget. 
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4.3 Programming Style 


Due to the very nature of the X-Windows environment, there is not a lot of room 
for individual programming style. The hierarchical structure of the environment 
dictates the basic order of the program, although the appearance of the application 
is completely up to the programmer, Initially, the hardware environment must be 
established through calls to functions which return the type of terminal or screen 
on which the application is being run. Then, for most types of applications, the 
widgets which will be needed for the application are created. Since widgets can be 
created without being displayed, it is usually advantageous to create all necessary 
widgets at the beginning of the program, rather than creating them as needed 
within the application. In addition to creating the widgets, the functions which 
are called in response to each particular event must be written. At this point, all 
that remains is the event processing loop. Depending on the complexity of the 
events and the way in which events are to be processed, the programmer can rely 
on a loop procedure included in the Xt toolbox or write their own event processing 
loop. Usually, the application ends from within the processing loop in response to 
some particular event. 


Chapter 5 

Software Design Philosophy 

There were several major objectives in designing this system. First, to provide 
an easy to use environment to capture and display top and side views of video 
and radar images; second, to provide the user with a convenient method of storing 
and retrieving this information; and third, to provide an analytic tool for compact 
radar range data acquisition and analysis. These goals indicated that a menu- 
driven program was needed, as well as dictating that a large portion of the screen 
be dedicated to various image displays. In accordance with the program naming 
convention associated with X- Windows, this program has been named X-Radar. 

As discussed in Chapter 4, X-Windows dictates, to a large part, the overall 
design of the software, but the appearance and ease of use of the system is pro- 
grammer dependent. For this application, most of the individual users of this 
system will not use the system very often; thus, the software interface must be 
as intuitive as possible. As a result, the menu item labels must be simple and 
straightforward, and the error recovery procedures should be consistent and as 
graceful as possible. Finally, user prompts must be used liberally to guide the 
infrequent user. 


27 



5.1 Display Screen Partitioning 

The resolution of the video acquisition board is 512x480 pixels, and the desired 
elements of the main display window dictated the display screen in terms of parti- 
tioning this data as well as others. Figure 11 shows one example of the partitioning 
of the main display window. The main menu is displayed along the right side of 
the display. All functional selections are listed in this menu. 
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Figure 11: X-RADAR main window with sub- window partitions. 


Two 512x480 windows across the top of the display are normally used to display 
the top and side views of the radar target. These are the main image display 
windows, although either one can be expanded to fill the entire display screen 
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(excluding the main menu area). 

The remaining 544x1024 window at the bottom is used to display system mes- 
sages and data plots from the range hardware when this program is used in con- 
junction with the data processing code. 

5.2 Main Menu 

The main menu is divided into four parts, with related functions grouped together 
as shown in Figure 11. The top-most section has functions related to image file 
input and output. Next is a group of functions controlling how the video images 
are displayed; i.e., full-screen or multi-window. Following this section is a group of 
functions for controlling the FG100V video board. And finally, a group of functions 
for controlling how the radar image is displayed. 

5.3 Pop-up Data Input Windows 

When user input is required, a pop-up window is used. If only a single piece of 
data is required, such as a file name, all keyboard input is ’focused’ or forced into 
that window. When input is complete, the user only needs to close the window 
by clicking the mouse on the ’EXIT’ button. If more than one piece of data 
is requested, the user must click the mouse on the item desired and enter the 
requested information. For windows where input is essential, the user is blocked 
from exiting the window until all input fields are entered. 

5.4 Error Recovery 

Error recovery has been designed to be as painless for the user as possible. When a 
recoverable error occurs, a text window containing a descriptive message is ’popped 
up’ on the screen. In order to assure that the user acknowledges the error, the 
message window is actually a single item menu, and the user must click the mouse 
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on it in order to erase the message window. Several other approaches to this were 
tried, but this was found to be the most effective way to handle errors that must 
be acknowledged. 

Recoverable run-time errors that the system i6 likely to encounter are limited to 
two types. First, file access errors are operating system generated, and are usually 
due to a specified file not being found or being otherwise unavailable. If this 
type of error occurs, an appropriate message is displayed, and the corresponding 
input window is re-displayed after the error i6 acknowledged. The second type of 
recoverable error is due to the user not using the system correctly. These errors are 
termed ’X- Radar Protocol Errors’ and usually occur when the user does something 
which is inappropriate in the current system context. Appendix C lists all of the 
recoverable errors and their possible causes. 

Other system errors can occur, but usually require more user attention than 
can be provided from within the application. If this type of error occurs, the 
program terminates, and the user is returned to the operating system. 

5.5 Interfacing to the Real Time Data Process- 
ing Program 

This software was designed to be used in a multi-tasking environment and can 
be run in conjunction with the real-time data processing program called RTDP, 
which is run as a background process to this program and is described in [14]. Data 
is passed from the RTDP program to X-Radar using an X Windows mechanism 
known as ’window properties’ [9]. 

A window property i6 a programmer-defined data structure associated with a 
particular window, and as long as two applications share a common window, a 
pointer to the property data structure may be passed between the applications. 
The simplest window to use for this is the ’root’ window, which is shared by all 
applications running on the workstation. Further, ’PropertyNotifyEvents’ can be 
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passed between applications to notify each application that another application has 
modified the shared property. X Windows prevents applications from accessing the 
property simultaneously by storing access requests in a queue. This prevents data 
corruption between applications which are writing and reading the property (this 
does not prevent applications from overwriting old data before it is read however). 

For this software, the property used to share data is a floating point array, large 
enough to hold a complete radar image. In the RTDP IMAGING mode, X-Radar 
enters an event processing loop which handles only two kinds of events : Proper- 
tyNotifyEvents and ButtonPressEvents. When the RTDP program has completed 
an image, it sends X-Radar a PropertyNotifyEvent. X-Radar then retrieves the 
data in the array and displays it. When the display i6 complete, X-Radar gen- 
erates a PropertyNotifyEvent, telling the RTDP program that it is ready for the 
next image. This full handshaking between the two applications guarantees that 
X-Radar does not miss any data transfers. Thi6 sequence is repeated until a But- 
tonPressEvent (generated by pushing a pointing device button) is encountered, 
which causes X-RADAR to exit the RTDP IMAGING mode. 
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Chapter 6 

Lighting and Camera Placement 
for Video Acquisition 

Any discussion of photographic lighting must begin with consideration of the sub- 
ject matter, the environment in which the photography is to be done and the ob- 
jective in photographing the subject. In addition, there is always an ideal solution 
and a realistic solution to a given problem, but the realistic solution requires some 
compromise. And so it is with the problem in this case, which is to photograph 
radar test targets which are actually mounted in the compact radar range. 

The objective in photographing the target is straightforward : to render the 
object with as much detail as possible, in an uncluttered, simple field of view, so 
that when it is combined with the radar image of the target, only that information 
which is pertinent will be visible, 

6.1 The Ideal Target and Lighting 

It is perhaps most informative to discuss the ideal target and lighting combination 
first, as a means of illustrating the goals for which one should strive. Some of these 
goals are easily achieved, while others are more difficult. 

Figure 12 illustrates the photographic effect which one would like to achieve. In 
the photograph, the model hangs in black space, with no extraneous background 
and with full surface detail easily visible. Also the mount for the model is visible, 
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Figure 12: An example of the correct lighting and target, 
which is important for documentation. 

First, proper lighting is required to render the surface detail correctly. Specular 
reflections tend to wash out any surface details and also cause the video camera 
to saturate. The model in this illustration was lit with two photographic flood 
lights mounted at the same height as the model at a low angle of incidence to the 
model’s fuselage, as shown in Figure 13. Positioning the lights at low angles of 
incidence and using diffuse lighting are two ways to minimize specular reflections. 

Secondly, the background is completely black, which focuses all of the viewer’s 
attention on the model. While this a seemingly simple point, it is surprisingly 
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Figure 13: Lighting diagram for previous figure. 
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difficult to ..achieve in practice. 

These ideas form the goals which one would like to achieve in the compact 
range. Again, some of these goals are difficult to achieve, but there are many ways 
to overcome the problems. 

6.2 Lighting for the Compact Range at the Elec- 
troScience Laboratory 

: -Ji.’. . V" ; " J IJ I lg fH .1 11 11^1 j l j Y ■- - 

While the compact range is designed to do radar imaging, it was not designed to 
be a photographic studio. The walls, floor and ceiling are covered with dark blue 
or black radar absorbent material and lighting fixtures are held to a minimum in 
order to reduce metallic objects within the room, which might cause unwanted 
scattering of the radar signal energy. 

The ambient lighting in the compact range room is provided by four sodium 
vapor fixtures in the ceiling. These lights are very bright and are not at all consis- 
tent with the goal of diffuse lighting for the target. The specular reflections these 
lights cause are very strong, particularly on polished targets. One solution would 
be to turn these lights off during video acquisition, but due the long start-up time 
of these lights (approximately 30 minutes), this is not a viable solution. Unfortu- 
nately, there does not appear to be a satisfactory solution to this problem other 
than to alter the surface finish of the targets. 

Most of the radar targets being investigated are made of polished aluminum, 
copper or silver-plated meted. Under ideal studio conditions, these types of objects 
are difficult to photograph, but under the conditions presented in the compact 
range room, it is a very difficult task. Several possible surface treatments which 
would ease the lighting problem have been considered. Probably the simplest and 
easiest solution is to apply a thin coating of matt paint to the target. The impact 
on the electromagnetic properties of such a coating have been investigated quite 
extensively, but the results are fairly simple : if the coating is thin, in terms of 
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Figure 14: An unpainted aluminum test target. 

wavelengths, and the target is a perfect conductor, the scattering properties will 
not be seriously affected. For most targets of interest in this project, the target 
material can be considered a perfect conductor, so a thin coating of paint should 
not present too much of a problem. Figures 14 and 15 show the advantages of 
painting a target white. In these figures, the exposure has been adjusted to show 
the target to best advantage. 

A further problem caused by the ambient lighting in the compact range room 
concerns the photographic appearance of the backgrounds surrounding the target. 
The overhead camera looks down directly at the floor, which is covered with blue 
radar absorbing material. The blue paint on the absorber reflects a surprising 
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Figure 15: The same target with a light coating of white paint. 
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amount of light, making the floor appear much brighter in the video image than 
to the eye. As a result, the target does not stand out significantly from the 
background. The obvious solution to this problem is to create a darker background 
on the floor around the target. Figures 16 and 17 illustrate this effect. In Figure 16 
the background is black; while in the other figure blue painted absorber was used 
as the background. At the ElectroScience Laboratory, the absorber on the floor in 
the vicinity of the target is blue, but it is obvious that the radar absorbing material 
on the floor in the vicinity of the target should be changed to a material that is 
natural black. This would provide a very dark background for the overhead camera 
without affecting the overall lighting of the target or the scattering characteristics 
of the range. 

The ambient lighting does not provide enough fight to acquire satisfactory 
video images, so additional lighting is provided by four 500 watt photographic 
flood lights. Two of these are located near the focus and aimed at the parabolic 
reflector of the compact range. Since the reflector is painted white, this provides a 
very high level of diffuse light in the vicinity of the target. To balance the amount 
of fight on the target, the other two flood lights are aimed at the back wall of the 
range room. While the material on the rear wall of the room is not extremely 
reflective, it does provide enough additional diffuse light to light the target zone 
effectively. In addition, individual targets may require even more light than this, 
and up to four 250 watt clamp-on photographic flood lights are used for very small 
or dark targets. 

6.3 Camera Placement a nd Lens Choice 

The placement of the cameras was determined by the viewpoints required for the 
imaging system, one above the target and one to its side. The range is equipped 
with an overhead crane for moving large targets into and out of the room. This 
provides an ideal platform for the overhead camera. The crane can be moved 
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Figure 16: Aircraft model against a black background. 
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Figure 18: Side-view of compact range showing top- view camera placement. 

directly over the mounted target for filming and then moved out of the way while 
radar measurements are taken. 

The lens choice for the overhead camera was determined by the geometry of the 
room and the maximum target size. Figure 18 shows the geometry of the room, 
the crane in place over the rotation pedestal and the location of the overhead 
camera. A 7.5 mm focal length lens is used for most targets. The major problem 
encountered with this choice is the distortion introduced by such a wide angle 
lens. Some of the distortion is accounted for in the scaling procedure used for the 
radar images, but this can only correct linear distortion, not the barrel distortion 
introduced by a wide angle lens. A better solution would be to correct the radar 
image based on a distortion map of the lens. 

The side view camera is mounted on a removable pedestal near the side wall of 
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the compact range chamber. In other applications, this camera could be mounted 
almost anywhere in the room, as in most compact range facilities, the target can 
be rotated to provide a side view. In the Ohio Stale University compact range, 
the camera was mounted near a side wall so that the background would be the 
opposite side wall. Since the walls are covered with dark blue material and are not 
well lit, this provides a relatively dark background in front of which the targets 
are readily apparent. 

Figure 19 shows a down-range view of the room, the target pedestal and the 
location of the side view camera. Again, the geometry of the room and the maxi- 
mum target size determined the focal length of the lens. A 12.5 mm focal length 
is used for most work. The distortion with this lens is not as noticeable as with 
the overhead lens due to the increased focal length. 

6.4 Lighting and Camera Placement Results 

This arrangement of cameras and lights provides very satisfactory 
of a variety of targets. Shown in Figures 20 through 23 are video 
directly from the imaging system in the compact range. The targets 
in the captions associated with each figure. 


video images 
images taken 
are described 
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Figure 20: Top view image of an aircraft test body. 
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Figure 21: Side view image of an aircraft lest body. 
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Figure 22: Top view image of dihedral test scatterers mounted on styrofoam. 


46 


ORIGINAL PAGE IS 
OF POOR QUALITY 








Figure 23: Side view image of dihedral test scatterers mounted on styrofoam. 
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Chapter 7 

An X-Radar User’s Manual 


One of the main goals in the design of X-Radar was to make it as user-friendly as 
possible. While not all problems that the user might encounter can be foreseen, the 
program is fairly straightforward to use and after a short initial learning period, 
it’s use should be quite simple. 

7.1 Initialization of Shared Memory Resources 

Before X-Radar can be executed, the shared memory resources for the FG100 must 
be initialized. This is done by entering super-user mode and executing the program 
‘frame Jnit’. If ‘frameJnit’ has been executed since the last system power-down 
or re-boot, ‘framejnit’ need not be executed again, although no harm is done by 
doing so. 

7.2 Executing X-Radar 

Next, ‘xradar’ is executed from a command line. It will take several seconds for the 
main screen and menu to appear. The program is ready to use when the command 
buttons respond to movement of the pointing device. 
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7.3 Camera and Lighting Acjjustment 

Before adjusting the lights and cameras, the ‘LIVE VIDEO TO MONITOR’ menu 
item should be selected so that the camera image can be viewed on the external 
monitor. The video image displayed on the monitor can be switched between the 
two cameras by selecting the ‘SWITCH TO SIDEVIEW CAM’ or ‘SWITCH TO 
OVERHEAD CAM’ as required. Notice that the same menu item serves both 
functions. 

The cameras and lights are turned on from a central power switch. The lights 
pointed at the parabolic reflector should be aimed at the approximate center of 
the reflector, while the lights facing the back wall of the chamber should be aimed 
towards the center of the back wall. 

The overhead camera (on the overhead crane) should be moved out over the 
target so that the back edge of the overhead baffle is in line with the white marks 
at the top of the chamber walls. The camera should be aimed 60 that the center of 
the video screen is coincident with the axis of the target pedestal. The side view 
camera and pedestal should be fitted to the mating receptical mounted at the base 
of the side wall of the chamber, and the camera aimed so that the vertical axis 
is aligned with the target pedestal axis and the horizontal axis bisects the target 
vertically. 

If the lens aperture on either camera requires adjustment, it should be set 
fully open, the lens should be adjusted for the best focus condition and then the 
aperture adjusted so that the video image appears to have a full compliment of 
gray values : from pure white to black. 

7.4 Acquiring a Video Image 

Once the lights and cameras are on and adjusted properly, the two video images can 
be acquired and displayed by actuating the ‘FRAME GRAB TO COMPUTER’ 
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command button. Formation of a video image takes approximately 30 seconds, 
at which time the image will appear in the upper left window or the upper right 
window of the screen, depending on which camera is activated. The other camera 
is then selected by clicking on the appropriate command button, and the process 
is repeated. Note that the external monitor video signal will respond to frame 
grabs by freezing the current video image, but can be un-frozen without affecting 
the grabbed image by selecting the ‘LIVE VIDEO TO MONITOR’ menu button. 

Alternatively, if a video image is already available in a disk file, the file can be 
retrieved and displayed by selecting the ‘READ VIDEO IMAGE FILE’ command 
button. After selecting this option, a text widget will pop-up on the screen so 
that the user may enter a file name. Note that a particular video image file name 
will refer to two files, one holding the top view image (filename. top) and the 
other holding the side view image (filename. side). Both files will automatically 
be retrieved and displayed based on the root file name. For instance, if two files 
named ‘target.img.top’ and ‘taxget.img.side’ exist, both of them will be read and 
displayed by entering ‘target. img’ for the file name. When the file name has been 
entered in the text widget, clicking the pointing device on the ‘OK’ button in the 
text widget will pop-down the text widget and the file(s) will be retrieved. 

7.5 Displaying a Radar Image 

There are several ways to retrieve and display a radar image file. First, if a desired 
radar image file exists on the disk, the file can be read and displayed by selecting 
the ‘READ RADAR IMAGE FILE’ menu item. Again, a text widget appears on 
the screen so that the user may enter a file name. The radar image for both views 
(assuming 3-dimensionaJ data format is present in the radar image file) is then 
superimposed on the current video image. If 3 dimensional data is not present 
in the image file, the image for the missing view will be displayed as a line of 
scattering centers along the target axis. 
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Secondly, if the radar image file is an ISAR image in raster scan format, the file 
can be read and displayed by selecting the ‘READ ISAR IMAGE FILE’ button. 
Note that only one ISAR image can be displayed at a time and that the ISAR 
image cannot be shifted or rotated for aligning with the video image. 

And finally, if the RTDP program is running prior to executing xradar, radar 
images can be displayed in real time as the data is being collected. The interface 
to the RTDP program is completely transparent and selecting the ‘Real Time DP’ 
menu item will initiate this mode. 

7.6 Scaling and Aligning the Radar Image 

If the video and radar images are misaligned or are scaled incorrectly, the ‘Radar 
Image Control’ functions can be used to correct the problem. It should be noted 
that alignment or scaling of the radar image should not normally be necessary, since 
if the cameras are properly aligned, the video image and radar image should also 
be aligned and scaled properly. If alignment and/or scaling is required however, 
these procedures should be carried out on full screen images in order to minimize 
errors. It should also be noted that these procedures cannot be used on ISAR 
images. 

If only a single radar image needs to be aligned, the process can be done at 
any time the radar image is displayed. Selecting the ‘SHIFT RADAR IMAGE’ 
menu item displays a full screen cross-hair cursor. The mouse is used to center 
the cross-hairs on the phase center of the video image of the target. Clicking the 
pointing device button then exits the selection and updates the position of the 
radar image origin. This procedure should be repeated for the both the top and 
side views of the target. 

Rotational alignment is accomplished by selecting the ‘ROTATE RADAR IM- 
AGE’ menu item. A vertical line will appear on the screen and the mouse is again 
used to align the line with the down-range axis of the target. This procedure should 
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be carried out on both views of the target, and it may require several iterations to 
achieve a satisfactory alignment for both. Clicking a pointing device button then 
exits the function and updates the rotational position of the radar image. 

Scaling the radar image requires knowing the actual dimensions of the extent 
of the target. For instance, if the target is an aircraft model, the dimensions of 
the wingspan, fuselage length and fuselage height are required. Scaling of the 
radar image is accomplished by selecting either ‘TOP VIEW SCALE FACTORS’ 
for the top view or ‘SIDE VIEW SCALE FACTORS’ for the side view. A small 
menu is popped-up to guide the user through the procedure. First, the vertical 
dimension item in the sub-menu should be selected by clicking on it with the 
pointing device. Then, using the pointing device, place the cursor at one end of 
the vertical dimension which is known, such as on the nose of an aircraft target. 
Then, push and hold the pointing device button and drag the rubber-band line 
to the other end of the known dimension, releasing the button when the cursor 
is properly positioned. Then, place the pointing device cursor in the small text 
window next to the dimension item just selected, and enter the actual dimension 
(in inches) of the line traced by the rubber band. Repeat the procedure for the 
other dimension and exit the procedure by clicking the pointing device on the ‘OK’ 
button of the popped-up window. The radar image is scaled and redisplayed on 
exit. This same procedure should be repeated for the other view of the target. It 
may be necessary to iterate the above procedures in order to reach a satisfactory 
alignment of the radar and video images. 

If the system is to be used in the real-time mode, a single radar image should 
be used to set up alignment and scaling with the video image. This can be ac- 
complished by selecting the ‘REAL TIME DP’ menu item, waiting until a radar 
image is displayed and then exiting this mode. The initial radar image can then be 
aligned with the video image using the above procedure. The real time processing 
mode is then be reactuated, and all future radar images should now be displayed 
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properly. 


7.7 Saving Video and Radar Images 

Saving existing video and radar images files is very straightforward. Selecting 
the desired menu item pops-up a text widget for entering the desired file name. 
Clicking the pointing device on the ‘OK’ button writes the file and pops the widget 
down. If the system is in the real-time mode, the radar image data is saved in the 
RTDP program, but alignment and scaling information will not be saved. It should 
be noted that under the UNTEK V operating system, an existing file with the same 
name will be over-written, and this system does not check for the existence of a 
file before writing. The formats of all files used by X-Radar are listed in detail in 
Appendix D. 

7.8 Changing the Color Map 

An alternate monochrome color map is provided if the user wishes to display 
the radar image, as well as the video image, using a monochrome gray scale. 
This feature is provided so that the user may generate screen prints for use in 
publications which are limited to monochrome reproductions. Clicking the pointing 
device button on the SWITCH TO MONOCHROME’ menu item will redisplay 
the images using this gray-scale map. Clicking the pointing device button again 
on the same menu item (the menu item label changes to reflect the next state) will 
return the system to a full color color-map. 
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7.9 


Program Usage Examples 

7.9.1 Example #1 : Capturing a video image and aligning 
with a radar image 

1. The execution of ’frameJnit’ has been added to the re-boot procedure 
on the XD88-30 in use at the ElectroScience Laboratory, so there is no 
need to execute this from a command line for this installation, however 
in other installations, it may be necessary to do 60 . 

2. Turn on the auxiliary lighting and adjust the position of the cameras so 
that they are centered on the pedestal axis in both views. If necessary, 
adjust the lens aperture on both cameras for correct exposure. Camera 
position, lighting and exposure can all be monitored in real time on the 
external video monitor by selecting the ‘LIVE VIDEO TO MONITOR’ 
menu item and switching between the two cameras using the ‘SWITCH 
CAMERA’ menu selection. 

3. Capture video images of both views by selecting the ‘FRAME GRAB 
TO COMPUTER’ menu item. The currently selected camera will de- 
termine which view is captured and displayed, and the other view is 
captured by switching to the other camera using the ’SWITCH TO ... 

CAM menu item. Figure 24 shows the screen after a complete video 
image frame grab. 

4. The radar image file is read and displayed by selecting the ‘READ 
RADAR IMAGE FILE’ menu item. 

5. If necessary, scale the radar image to the video image by first select- 
ing full-screen mode for the top view and then selecting the ‘SCALE 
RADAR IMAGE’ menu item. Select the ‘SCALE VERTICAL DIMEN- 
SION’ item on the sub-menu and position the cursor at the bottom end 
of the known vertical dimension. Push and hold the mouse button while 
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Figure 24: 


Main screen after video image capture of aircraft test body. 
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Figure 25: Setting the top view scale factors. 


positioning the cursor at the top end of the known vertical dimension. 
Release the mouse button and move the cursor to the small window 
to the right of the ‘SCALE VERTICAL DIMENSION’ sub-menu item. 
Enter the known vertical dimension in inches. Repeat this procedure for 
the known horizontal dimension, entering it in the appropriate window. 
Figure 25 shows the top view screen while setting the top-view scale 
factors. When complete, select the ‘OK’ item on the sub-menu. Switch 
to full-screen display for the other view and repeat this procedure for 
that view. 
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6. If necessary, rotate the radar image to align with the video image. While 
this may be difficult if the down range axis of the radar image cannot 
be determined, if the cameras are properly aligned, only a very slight 
rotation will be needed. Select the full-screen mode of the view to rotate 
and then select the ‘ROTATE RADAR IMAGE’ menu item and move 
the mouse cursor until the cursor line is parallel with the down range 
axis of the video image. Click any mouse button to accept the desired 
rotation and re-display the rotated radar image. Figure 26 shows the 
top view screen while setting the rotational offset. This procedure may 
be repeated as necessary. Switch to the full-screen display of the other 
view and repeat for that view. 

7. Also if necessary, shift the radar image by selecting the ‘SHIFT RADAR 
IMAGE’ menu item and moving the cross-hair6 to the phase center of 
the video image. Figure 27 shows the top view screen while setting 
the top-view offsets. Click any mouse button to accept the shift and 
re-display the shifted radar image. Switch to the full-screen display or 
the other view and repeat. 

8. The above three steps may be repeated until a satisfactory alignment 
and scaling has been achieved. 

9. The video images should be saved by selecting the ‘WRITE VIDEO 
IMAGE FILE’ menu selection. Enter the desired image file name in 
the sub-window and select the ‘OK’ item in the sub-window. Figure 28 
shows the top view screen while entering the filename for the video 
image. 

10. Exit X-Radar by selecting the ‘EXIT’ menu item. 
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Figure 26 : Setting the rotational offset. 
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Figure 27: Setting the top view offsets. 
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Figure 28: Entering the video output filename. 
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,2 Example #2 : Displaying Real-Time Radar Images 
on a Captured Video Image 

1. Follow step 1 in Example #1, if necessary. 

2. Execute the Real Time Data Processing Program (RTDP) [14], 

3. After the RTPD program is running, and all parameters have been set, 
click any mouse button on an open area of the screen until a VT102 
window becomes visible. Place the mouse cursor in the VT102 window 
and execute ’xradar’. 

4. Follow steps 2 and 3 in Example #1. 

5. Select the ‘REAL TIME DP’ menu item and wait until a radar image is 
displayed. Figure 29 shows the main screen after entering the real time 
data processing mode. If scaling and alignment are necessary, click any 
mouse button on the ‘REAL TIME DP’ item again to stop the radar 
image acquisition. Use the displayed radar image to scale and align the 
radar and video images, as described in Example #1. Select the ‘REAL 
TIME DP’ item again to continue with the real-time display. 

6. During real-time display, all of the menu items, such as switching display 
modes and color maps, remain active and can be executed at any time. 
Figure 30 shows the top view screen after selecting ‘TOP VIEW — > 
FULL SCREEN’ menu item while in real time mode. 

7. When radar image display is complete, exit the real-time mode by se- 
lecting the ‘REAL TIME DP’ menu item again. 

8. If desired, save the video images by selecting the ‘WRITE VIDEO IM- 
AGE FILE’ menu item and entering a file name. Select the ‘OK’ item 
on the sub-window to accept the file name and write the file. 

9. Exit X-Radar by selecting the ‘EXIT’ menu item. 
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Figure 30: Side view of aircraft test body during RTDP mode. 
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7.9.3 Example #3 : Displaying an ISAR image 

1. Follow steps 1, 2 and 3 in Example #1. 

2. Read the ISAR image file by selecting the ‘READ ISAR IMAGE FILE’ 
menu item. Figure 31 shows the main screen after selecting the ‘READ 
ISAR IMAGE FILE’ menu item, while Figure 32 shows an ISAR image 
of an F4 aircraft read from a file after selecting ‘TOP VIEW - > FULL 
SCREEN (the image data in this file has been padded to create the 
black border and white background).The ISAR image should conform 
to the file format listed in Appendix D. ISAR images cannot be scaled, 
rotated or shifted, so this is all that can be done. 
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Figure 31: Main screen for ISAR file name entry. 
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Figure 32: ISAR image of an F4 aircraft. 
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Chapter 8 
Conclusion 


A hardware and software system for the display and analysis of radar images has 
been described in this report. This system was designed to provide the user with a 
versatile and efficient way to examine different types of radar images superimposed 
on a video image of the actual target measured. This has been accomplished by 
using a menu-driven software architecture to allow the user to easily control the 
various hardware components of the system. In addition, since the software is 
event-driven, adjustments (scale, shift and rotation) to the radar images can be 
done interactively even in the real-time mode. This allows the user to make fine 
adjustments to the images as the processing is being done, rather than having to 
wait until processing is complete. 

The capabilities of the system have surpassed the original goals. The system is 
capable of displaying radar images in the real time mode at a rate of approximately 
one every three seconds. In addition, images can be recorded on video tape, or 
hardcopy can be produced on a color printer. The system provides the user with 
complete documentation of each radar image produced and serves as a diagnostic 
tool for the radar system. 

The system has undergone extensive testing during development and has been 
recently put into use in the compact range at the ElectroScience Laboratory. While 
the original design goals have been exceeded, new areas of application and devel- 
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opment have become evident. Possible areas for further development are in the 
addition of features for interactively analyzing individual scattering centers, corre- 
lating scattering centers in one view with scattering centers in the other view and 
developing an isometric view of the video and radar images. 

In addition, there are several parts of the software that could be improved. 
While both the RTDP program and X-Radar are running, there is often a need 
to actuate the RTDP menus. While this can currently be achieved by cycling 
through the various windows being displayed (by using the mouse buttons), it 
would be much more convenient if this could be achieved with only one mouse 
event. This could be achieved if both the RTDP program and X-Radar were each 
placed under an application shell widget; in other words, each program should 
have an application shell widget which covers the entire screen as the upper-most 
parent in the program. 

The real-time image display could also be improved. As written, each new radar 
image requires that the entire video display be erased. A substantial improvement 
in speed could be achieved if only the previous radar image could be erased. This 
could be achieved by using the function XClearAreaQ for each scattering center 
marker, and then letting the ExposeEvent event handler fill in the missing part of 
the video image. 
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Appendix A 

Programming the FG100V Video 
Board 


Programming the FG100V video board requires a complete understanding of the 
way in which the XD-88 bus address space is organized, and an understanding 
of the UTEK V system calls available to carry out virtual address space memory 
mapping. The address space in the XD-88 is organized into two separate, but 
related address spaces : the VME address space and the Futurebus address space. 
The Futurebus is the internal system bus used by the system for disk I/O, CPU 
interconnection and processing. The VME bus is used for interfacing the system to 
the graphics sub-systems and 3rd-party vendor hardware [13]. The XD88 memory 
space is organized as shown in Figure 33. 

A.l VME Protocol Address Spaces 

The VME protocol specifies three different address spaces. VME ’standard’ ad- 
dress space requires a 24-bit address and hence can access up to 16Mbytes. VME 
’short’ address space only uses 16-bit addresses and so only addresses 64 Kbytes of 
space. There is also VME ’extended’ address space, which uses 32-bit addresses. 
For many I/O purposes, the short address space is sufficient and the standard and 
extended address spaces are usually only used for devices which have large amounts 
of memory. Which address space is being accessed is determined by a byte known 


69 



OxDFFFFFFF 

OxDEOOOOOO 


Standard ( AMC 0»J») 


OxFFFFFF 


0x000000 


Wm 

|y/rAr/x^fXAQ 


Open for 3rd ^ 

part hit: ic * 5/ A™ b y tes 


OxDCOOOOOO 


OxDAOOOOOO 


OxD8DOOOOO 


OxD6000000 1 Ejt * nd * d ^ °* 0B > 




OxD400000Q 


OxD20GOOOO 


OxDOOOOOOO 


OxCEOOOOOO 


oxccoooooo Th ® wi i ndo r */ ij 

u comprised of Q 

ti 16 translation W x 
OxCAOOOOOO |§ register* each fej 

f», one of which H 

k may map up to 

0xC8000000 2 32 mb of H 

I? VMEbus apace. Q 

....... £ One register £ 

0x06000000 !> *ay map all of £ 

*. short or atan- Ej 

OxC400000Q | d,rd * pJC '- 1 

0x02000000 ■ ■ 

0x00000000 |tatandad(A3<3 Q,OB)[ j 

\ 

Futurebus Address Space 


512MB window 
from Futurebur 
on to the 
VMEbus 


f j Lx tended (AM! 0*OB)f; 



OxlBFFFFFF 

OxlAOOOOOO 

0x18000000 


0x16000000 


0x14000000 

\ 

0x12000000 



Open for VME- 
bus 3rd-party 
devices 


0x10000000 
OxFFFFFFFF 
OxFEO OQOOQ 
OxODFFFFFF 
OxOCOOOOOO 

OxOAOQOOOO 

0x08000000 

0x06000000 

0x04000000 

0x02000000 

— 

0x00000000 

VMEbus Address Space 




64M bytes 


Reserved for |J 
he configura-ra I 

ion fo up to016OM bytes 
ten Mem 16 E j 

boards fcj 


32M bytes 


Figure 33: Memory organization in the XD88 Workstation. 


as the Address Modifier Code (AMC). An AMC = 29 (hex) specifies the short 
address space, an AMC = 39 (hex) specifies the standard address space and an 
AMC = 0B (hex) specifies extended address space. The relationship between the 
AMC, the Futurebus and VME address space is shown in Figure 34. The details 
of how the user sets this byte will be described later in this chapter. 
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Figure 34: Usage of the AMC to calculate the physical address of a VME device 
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A. 2 XD88 VME Device Address Space 


The VME standard and short address spaces are mapped into two windows in 
the Futurebus address space. VME extended address space is mapped onto the 
Futurebus in 32Mbyte windows. The FG100V requires mapping into both the short 
address space, for the control registers, and into VME standard address space, for 
the video buffer memory. 

Figure 35 shows the control register map for the FG100V [11]. Notice that all 
registers are referenced as byte offsets from the base address. This is important 
since the board only supports word transfers. This will effect what type of pointer 
is used when accessing the control registers. 


A. 3 Shared Memory Initialization 


VME address space is accessed in the XD-88 by mapping it into the real address 
space of the machine. This is done by allocating ’shared memory’, that is, mem- 
ory shared between the user and the system. The allocation of shared memory 
on the XD88 is reserved for superusers only. This means that a separate pro- 
gram must run at the superuser level to initially allocate the memory and that 
this program must also allow non-superusers to access the memory segment. The 
program ’frame Jnit.c’ is used to initialize shared memory for the FG100V video 
board and is listed in Appendix B. The most important part of the code are the 
define statements, which are reproduced in the partial listing below. 

A. 3.1 Listing ! — SHM JNIT.C 

♦define REG_PHYS_ADDR 0x0 /* Physical address of control regs.*/ 

♦define MEM_PHYS_ADDR OxAOOOOO /* Physical address of video memory */ 

♦define REG_REGION_SIZE 0x2000 /* size of reg. region in bytes */ 

♦define MEM_REGI0N_SIZE 0x100000 /* size of mem. region in bytes */ 

♦define REGJCEY 0x1000 /* key for reg shm */ 

♦define MEMJCEY 0x1001 /* key for mem shm */ 


72 


•define SHMFLAG (IPC.PHYS I 

IPC-CREAT I 
1PC.H0CLEAR I 
IPC.CI I 

0777) /* define shared memory flags */ 

•define REG.PHYS .SPACE (PHYS.VME I 

PHYS.VHE.SHORT I 

PHYS.VME.DATA) /* AMC for control regs.*/ 

•define MEM.PHYS .SPACE (PHYS.VME I 

PHYS.VME.STD I 

PHYS.VME.DATA) /* AMC for frame buffer */ 

A. 3. 2 Explanation of Listing #1 

A complete description of each of the define statements and the initialization code 
follows below : 

1. REG.PHYS.ADDR and MEM.PHYS.ADDR define the physical addresses 
of the control registers and the frame buffer memory. As noted in the listing, 
there is a bug in the function shmgetQ which requires defining the control 
register physical address as 0000 (hex) and adding an offset to get the actual 
physical address. The addition of the offset is not done in the initializa- 
tion program, but instead is handled in the actual FG100V functions. The 
shmget() function seems to work normally when mapping the address for the 
frame buffer memory, and the physical address defined for it, A00000 (hex), 
is correct. 

2. REG. REGION-SIZE and MEM.REGION.SIZE define the amount of mem- 
ory in bytes that is needed for the control registers and the frame buffer 
memory respectively. 

3. REG-KEY and MEM-KEY are the most important defines here. These 
values allow other processes to access the memory areas allocated by this 
program, and therefore, these values must be known to other applications 
that wish to use the space and the FG100V video board. 

4. SHMFLAG defines a set of bit flags passed to the shmgetQ function. The 
exact details of each flag will not be explained, so unless the actions of a 
specific flag are in question, the values listed here should be used. The 
values of the flags are defined in the UTEK system header file ’ipc.h’ . 

5. REG-PIIYS-SPACE and MEM-PHYS-SPACE define a set flag6 which define 
the complete AMC used for each mapped area. The flags are defined in 
the header file ’shmphys.h’, but are fairly self-explanatory. The define for 
REG-PIIYS-SPACE should be used as shown when mapping an I/O device 


73 


to VME short address spare and the define for MEM-PHYS-SPACE should 
be used as shown when mapping a device to standard address space. 

The remainder of the initialization program is fairly simple. After turning off 
signaling for bus errors (a good idea while debugging code for VME bus devices), 
address space for the control registers is allocated. The shmgetQ function returns 
an ID number for the memory space, if an error doesn’t occur. Errors are trapped 
to a fatal exit after printing a description of the error. 

Next, the memory area for the control registers is set to allow access by non- 
superuser applications. The structure of type shmBusTable is defined in the UTEK 
V system header file ’shm.h’ and is used to pass information about the shared 
memory area to the function shmctlQ. This function performs a number of different 
functions and is outlined fairly well in Reference [12]. Here it is used to set the flag 
SHMPHYS-ALLOW so that the memory space can be accessed by any application. 
Again errors are trapped to a fatal exit after printing an error message and freeing 
the memory allocated by the previous shmgetQ. 

The previous instructions are repeated for the frame buffer memory 6pace. 
Again note that before exiting due to an error, previously allocated space is freed. 
This is done because the allocations are permanent, and are not freed just because 
an error occurred. These allocations are only deleted from the memory manage- 
ment table by a freeQ instruction or at power-down. 

This completes the initial allocation of shared memory space for a VME device. 
The next step is to attach a process to the memory space which has been allocated. 

A.4 Shared Memory Attachment in X-Radar 

The application is ’attached’ to the previously allocated virtual memory space 
through the same system calls used to allocate the memory. However, since the 
same allocation ’key’ is used, the system does not re-allocate the space, but sim- 
ply returns an identification number for use by the application. The function, 
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ITIJnitQ, used to attach the allocated virtual memory space to X-Radar is listed 
in Appendix B, module ’xframe.c’. 

Again, the define statements are very important, and are listed in Appendix B, 
module ’radar. h\ They are virtually identical to the define statements in the 
initialization program in Appendix B. It is extremely important that the values of 
REG-KEY and MEM-KEY are the same in both, as this is the mechanism used 
to associate the previously allocated memory space with the application. Also, it 
is important that the amount of memory requested in the application program be 
the same or less than the amount allocated in the initialization program. 

The main part of the attachment function is very similar to the initialization 
program. Following the declarations of variables and again turning off bus error 
signalling, the shmgetQ function is called to get an ID number. However, since 
this portion of memory has already been allocated, the ID number returned is the 
same one returned by shmgetQ in the initialization program. Now, the function 
shmatQ is used to attach the ID number to this application. As in the initializa- 
tion program, any time a fatal error occurs, the application must ’clean up’ the 
environment before exiting. In this case however, the function shmdtQ is used to 
detach the application from the allocated memory. Note that this does not free 
the memory, it just releases the application from the memory management table. 

The value returned by shmatQ is a pointer to the beginning of the shared 
memory space. In the case of the control register memory space, this pointer 
points to the address of the first control register, and other control registers can be 
accessed by adding the appropriate offset to the pointer. The same is true for the 
frame buffer. The pointer returned by the corresponding call to 6hmat() points to 
the beginning of the frame buffer. 

One of the problems encountered during the development of this code was 
the type declarations for the various pointers. Since the board only supports 
word addressing, the pointers must be declared as ’shorts’, which are 16-bit words. 
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However, the offsets for the control registers are specified in bytes, so all the offsets 
listed in the FG100V user’s manual [11] must be divided by two to get the offset 
in words. 


A. 5 FG100V Control Software 

With the required memory mapping established, the FG100V can be controlled. 
Control of the board entails setting particular control registers in a particular 
sequence to accomplish the required process. The functions written to control the 
FG100V are listed in Appendix B, module ’xframe.c’, and are outlined here. 

1. write_register() : A function to write a data value to a FG100 control register. 
Notice that the register offset is divided by 2. As mentioned previously, this 
is because the register offsets are given in bytes, but the FG100 only accepts 
word addresses. 

2. read_register() : A function to read the value of an FG100 control register. 
Again, the register offset is divided by 2 for the same reason as mentioned 
above. 

3. wait_vb() : This function waits for a vertical blanking period in the video 
signal. This is necessary in order to insure that the FG100 grabs a complete 
frame. 

4. ITI_init() : As discussed previously, this function is used to attach X-Radar 
to the previously allocated shared memory spaces. It also sets the FG100 
control registers to default values. A series of write_register() calls at the end 
of the function set these default values and are explained in the comments. 

5. ITI_lut() : This function initializes the FG100 hardware color look-up ta- 
bles. The FG100 has up to 16 different look-up tables, but for this simple 
application, only four are used : one each for RED, GREEN, and BLUE and 
one for the intermediate look-up table. In this application, all the look-up 
tables are configured as linear ramps, and the intermediate look-up table is 
installed between the camera and the video A/D converter. 

6. ITI.frameQ : This function grabs a frame of video and displays it on the 
screen. There are two things that the function must do : first, it must 
wait for a vertical blanking period so that a complete frame is digitized, 
and secondly, it must wait for any previous command to terminate. The 
wait.vbQ function accomplishes the first^ the second being accomplished by 
the whileQ statement in line 6. At this point, the camera selected is used to 
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set the data to write to the FG100 in order to initiate the frame grab. Finally, 
the function waits for the frame grab to complete. The remaining part of 
the code reads the video data from the FG100V and forms and displays the 
video image on the XD88. The code checks whether X-Radar is displaying 
both the top and side view or just one or the other and then displays the 
video image in appropriate window on the screen. 

7. ITI_cont() : This function simply puts the FG100 in the continuous acqui- 
sition mode so that the video signal from the cameras can be viewed in 
real-time on the external system monitor. This is useful for aligning the 
cameras and monitoring the target in the compact range chamber. 

8. ITI_cam() : This function switches between the two cameras as the current 
video source. 

9. ITLcloseQ : This function simply releases the shared memory attachment of 
X-Radar. This function is only called on exiting the application. 
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Figure 35: FG100V control register map. 


















Appendix B 


Listing of X- Radar 


B.l Program ITI_init.c 

/* 

• This program sets up shared memory management for F6100 frame grabber. 
♦/ 

♦include <stdio.h> 

♦include <signal.h> 

♦include <sys/types .h> 

♦include <sys/ipc.h> 

♦include <sys/shm.h> 

♦include <sys/io/shmphyc,h> 

♦define REG_PHYS_ADDR 0x0 /* Physical address of control regs. */ 

♦define MEM_PHYS_ADDR OxAOOOOO /* Physical address of video memory */ 
♦define REG_REGION_SIZE 0x2000 /* size of reg. region in bytes */ 

♦define MEM_REGI0N_SIZE 0x100000 /* size of mem. region */ 

♦define REGJCEY 0x1000 /* key for reg shm ♦/ 

♦define MEMJCEY 0x1001 /* key for mem shm */ 

♦define SHMFLAG (IPC.PHYS I IPC_CREAT I IPCJI0CLEAR I IPC.CI I 0777) 
♦define REG.PHYS.SPACE (PHYS.VMEl PHYS^VHE.SHORTlPHYS^VME.DATA) 

♦define MEM_PHYS_SPACE (PHYS.VME I PHYS_VHE_STD I PHYS.VME J>ATA) 

extern int ermo; 

extern char *sys_errlist [] ; 

main() 

i 

int shmid_reg,shmid_mem; 
struct shmBusTable addr; 
char *shmat(); 
signal(SIGBUS ,SIG„IGN) ; 

/* set up shared address space for control registers */ 
if ((shmid.reg = shmget (REGJCEY, 

REG.REGIOH.SIZE, 

SHMFLAG, 

REG.PHYS.ADDR, 

REG_PHYS_SPACE) ) < 0) 
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fprintf (stderr, 

’’Error allocating shared memory for control registeraXn") ; 
fprintf (atderr , M shmget : errno: y t d,y,s\n M , 
errno , aya_errlist [errno] ) ; 
exit(i) ; 

> 

addr.atart = ( caddr.t )REG_PHYS_ADDR ; 
addr. length = REG.REGION.SIZE; 
addr. apace = REG_PHYS_SPACE; 
addr.nid = 0; 
addr.gid = 0; 
addr. perm = 0777; 

/♦ 

* Allow non-superuser applications to use the apace. 

♦/ 

if (ahmctl(shmid_reg,SHMPHYS_ ALLOW, Aaddr) ?= 0) 

{ 

fprintf (stderr, "ahmctl: y,s\n M , errno .ays _errli at [errno] ) ; 

exit( 1 ); 

> 

/* 

* Open VME standard apace for frame buffer 
*/ 

if ( (shmid.mem = shmget (MEM JCEY, 

MEMJlEGIOH_SIZE, 

SBMFLAG , 

MEM _PHYS_ ADDR, 

MEM_PRYS_SPACE) ) < 0) 

i 

fprintf (atderr , 

’’Error allocating Bhared memory for video meraory\n”); 
fprintf (atderr , "shmget: '/,d — # /.s\n", 
errno, sys.errlist [errno] ) ; 
exit (1) ; 

> 

addr.atart = (caddr_t)MEM_PHYS _ADDR; 
addr. length = MEM_REGION J3IZE ; 
addr. apace = MEM.PHYS^SPACE; 
addr.nid = 0; 
addr.gid = 0; 
addr. perm = 0777; 

/* 

* Allow non-superuser applications to use the apace. 

*/ 

if( shmctK ahmid_mem, SHMPHYS _ALL0W, Aaddr) != 0) 

{ 

fprintf (8tderr,"ahmctl: # /,d f /,a\n” , errno, aya_errliat [errno] ) ; 
exit( 1 ); 

> 

exit( 0 ) ; 

> 
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B.2 Program xradar 

B.2.1 Module xrdr.c 

/* 

* 

* This is the main source file lor the compact range image 

* display program. 

* 

* 

*/ 

♦include "radar. h M /* includes all X includes */ 
extern void RePaintO; 
extern void ITI_init(); 
extern int ClearRadarDataO ; 

/*♦* ALL Global variables are defined in this module **♦/ 

/* GLOBAL X STUFF ♦/ 

Xlmage ♦iml, *im2,*im3, *im4; /* image vars . lor video images +/ 

Display ^display; 

Colormap cmap; 

GC gel, /* GC lor all image display */ 

gc2; /* GC lor cross hairs */ 

XFontStruct *font,font2; 

Vidget toplevel, top2, shelll, 

shell2, shells, 

shell4, 

winwidgetl, winwidget2, 
winwidgeta , winwidget4 , 

poplilel , popfilela, poplile2 ,poplile3 , 

error_popup, popmove, exit_raessage , 

scalepopl, scalepop2, 

buttonl , button2, button3, 

button4 , buttons, buttonG, 

button7, button8, button9, 

buttonlO ,buttonll ,buttonl2 , 

buttonl3 ,buttonl4 ,buttonl5 , 

buttonlG ,buttonl7 , 

box, color.scale, mono_scale, 

levl ; 

/** Global s lor positions and sizes ol graphics window widgets **/ 

int gxpos 1 i gxpos2 ,gxpos3 , gxpos4 ; 

int gyposl , gypos2 ,gypos3 ,gypos4 ; 

int xsize,ysize; 

unsigned long cols [256]; 

unsigned long monocols [256] ; 

unsigned long lore, back; 

unsigned long red, white, blue ,black; 

/*** Globals lor multiple screen manipulation ***/ 

int scrnl.llag = 0; /* flag set il full screen side view */ 

int scrn2_flag = 0; /* Hag set il lull screen top view */ 

Boolean isar_flag = False; /* flag set il ISAR image display */ 
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Boolean mono = False; /♦ flag set if using mono colormap */ 
widget_8truct w_recl, w_rec2; 

/** GlobalB for radar images **♦/ 

/♦ 

* array to hold radar image data. 

* structure as follows: 

* radar_data[i] [0] = x coord, of ith scattering center 

* radar _data[i] [1] = y coord, of ith scattering center 

* radar_data[i] [2] = z coord, of ith scattering center 

* radar_data[i] [3] = magnitude of ith scattering center 

* radar _data[i] [4] = spare 

* radar _data[i] [5] = spare 

*/ 

float radar_data[IMAGE_PNTS] [6] ; 

int num_pnts =0; /* number of points in current radar image */ 

float in^angle = 0.0; /* incident angle of radar signal */ 

Boolean vidl_flag = False; / * true if top view in system */ 

Boolean vid2_flag = False; /* true if side view in system */ 
rubber_band.dat a rb_data; /* structure for rubber band lines */ 

cursor_data cur_data; /* structure for full screen cursor */ 
line_data l_data; /* structure for rotationn cursor */ 
char xscale_str [10] , /♦ strings to hold scale dimensions */ 

yscalel_str [10] , 
yscale2_str [10] , 
zscale_str[10] ; 

float x_scale = B12./96.; /* default scale factors +/ 

float yl.scale = 512. /96.; 

float y2_scale = 512. /96; 

float z. scale « 512./96.; 

int x. dim, yl.dim, 

y2_dim, z_dim; /* # of pixels for scaling */ 
int x.offset =0; /* offsets for adjusting radar image */ 

int yi.offset = 0; 
int y2_offset = 0; 
int z_offset = 0; 

float xy_angle =0.0; /+ rotation angles for radar image */ 

float yz^angle = 0.0; 

int horizontal_f lag ; /* flag : True = setting horiz. scaling */ 

/*♦ GLOBAL FILE STUFF *♦/ 

char buf f erl [80] , buff erla[80] , buffer2[80]; 

FILE *fd_mapfile; 

unsigned char *vidrayl, *vidray2, *isarl, *isar2; /* pointers to raw data */ 
unsigned char *Imagel , *Iraage2; /+ pointers to image data */ 
unsigned char *BigImagel, ♦Biglmage2; /* pointers to image data */ 

/************************************************** t***********************/ 

main(argc ,argv) -- - 

int argc ; 
char *argv □ ; 

{ : _ 

/* set default image sizes and locations */ 

xsize = 512; 
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ysize = 480; 
gxposl = 0; 
gyposl *= 0; 
gxpos2 = 512; 
gypos2 = 0; 
gxpos3 = 0; 
gypos3 - 512; 
gxpoa4 = 0; 
gypos4 = 0; 

/* prepare everything in startup routine */ 
initializeO ; 

/* setup user interaction */ 
xinteract () ; 

/♦ loop for events */ 

XtMainLoopO ; 

> /*end mainC)*/ 

/******** ************************************ ******* ****** *************** *****/ 
/* initialize — does general initialization */ 

initializeO 

{ 

Arg arg[10] ; 

int mapchars, bitmap _pad; 
unsigned int depth; 
mapchars = 512 * 512; 

/* 

* Allocate memory for raw data arrays . 

*/ 

if( ! (vidrayl = malloc (mapchars ) ) II 

! (vidray2 = malloc (mapchars ) ) II 

!(isarl * malloc (mapchars) ) M 

!(i8ar2 * malloc (mapchars) ) ) 

i 

print f ("Unable to allocate memory for data arrays .. An") ; 
exit (-1) ; 

> 

/* allocate memory for Bmall image data arrays */ 
if( Klmagel = malloc (2*mapchars) ) II 

! (Image2 = malloc (2*mapcharB)) ) /* 2x for 12 bit depth */ 

i 

print f ("Unable to allocate memory for small image arrays .. .\n M ) ; 
exit (-1) ; 

> 

/* allocate memory for big image data arrays */ 
if( ! (Biglmagel = malloc (2*4*mapchars)) II 
! (Biglmage2 = malloc (2*4*mapchars ) ) ) 

printf ( M Unable to allocate memory for big image arrays .. An") ; 
exit (0) ; 

> 

clear_array( vidrayl , mapchars) ; /* clear arrays */ 

clear _array(vidray2, mapchars) ; 
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clear_array(isarl f mapchars) ; 
clear_array(isar2 ,mapchars) ; 
clear_array(Imagel ,2*mapcharB) ; 
clear_array(Image2 ,2*mapchars) ; 
clear .array (Biglmagel ,2*4*mapchars) ; 
clear_array (Biglmage2 ,2*4*mapchars) ; 

ClearRadarDataO ; /+ clear radar data array */ 

/♦ 

* create toplevel shell for the main menu and an application shell 

* lor graphics widgets 
*/ 

toplevel * Xt Initialize (NULL,"X-Radar " , 

NULL, 0, 

NULL, NULL); 

top2 = XtCreateApplicationShell( ,, Windows" ,topLevelShellWidgetClass , 
NULL,0) ; 

XtSetArg(arg[0] , XtNx, 0); 

XtSetArg(arg[l] , XtNy, 0); 

XtSetArg(arg[2] , XtNwidth, 1024); 

XtSetArg(arg[3] , XtNheight , 1024) ; 

XtSetArg(arg[4] , XtNtransient , True); 

XtSetArg(arg[5] , XtNallowShellResize, False); 

XtSet Values (top2,arg ,6) ; 

XtRealizeWidget (top2) ; 

/* 

* Now that top2 is realized, create colormap and a graphic 

* context based on it. 

*/ 

display = XtDisplay(top2) ; 

cmap = XCreateColormapCdisplay ,Def aultRootWindow (display) , 
DelaultVisual(display , DelaultScreen(display) ) , 

AllocAll) ; 

cmap = XDelaultColormap(display , DelaultScreen(display)) ; 
XInstallColormap(display ,cmap) ; 

BuildColorMap2 ( ) ; 

BuildMonoColormapO ; 

XSetWindowColormap(XtDisplay(top2) ,XtWindow(top2) ,cmap) ; 
gel = XCreateGC(display ,Def aultRootWindow(display) ,0,0) ; 
lore = XBlackPixel (display ,DelaultScreen(display ) ) ; 
back = XWhitePixel (display ,Def aultScreen(display) ) ; 

XSetBackground (display ,gcl ,lore) ; 

XSetForeground (display ,gcl ,back) ; 

/* Now, let’s define some useful colors */ 

red = cols [245]; 

blue = cols [130]; 

white = back; 

black = fore; 

/* 

* create popup shells for graphics widgets 

♦/ 

XtSetArg(axg[0] , XtNx, gxposl); 
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XtSetArg(arg [1] , XtNy, gypoBl); 

XtSetArg(arg[2] , XtNallowShellReBize, False); 

XtSetArg(arg[3] , XtNgeometry, "512x512"); 

shelll = XtCreatePopupShell( "Windowl" transient Shell Widget Class , 
top2 ,arg ,4) ; 

XtSetArg(arg[0] , XtNx, gxpos2); 

XtSetArg(arg[l] , XtNy, gypos2); 

XtSetArg(arg[2] , XtNallowShellResize, False); 

Xt5etArg(arg[3] , XtNgeometry, "512x512"); 

shell2 = XtCreatePopupShell ("Window2" f transientShellWidgetClass , 
top2 ,arg ,4) ; 

XtSetArg(arg[0] , XtNx, gxpos3); 

XtSetArg(arg[l] , XtNy, gypos3); 

XtSetArg(arg[2] , XtNallowShellResize, False); 

XtSetArg(arg[3] , XtNgeometry, "1024x512"); 

shell3 = XtCreatePopupShell ("Windows" .transientShellWidgetClass , 
top2 , arg , 4) ; 

XtSetArg(arg[0] , XtNx, gxpos4) ; 

XtSetArg(arg[l] , XtNy, gypos4) ; 

XtSetArg(arg[2] , XtNallowShellResize, False); 

XtSetArg(arg[3] , XtNgeometry, "1024x1024"); 

shell4 = XtCreatePopupShell ("Window4" .transientShellWidgetClass , 
top2 ,arg,4) ; 

A 

* create core widgets to go in the popup shells. 

* Note that foreground and backgound colors are reversed so 
+ that the normal state of the windows is black. 

*/ 

A windowl and window2 are 512 x 512 */ 

XtSetArg(arg[0] , XtNx, 0); 

XtSetArg(arg[l] , XtNy, 0); 

XtSetArg(arg[2] , XtNwidth, xsize) ; 

XtSetArg(arg[3] , XtNheight, ysize); 

XtSetArg(arg [4] , XtNbackground , fore); 

XtSetArg(arg[5] , XtNforeground, back); 

winwidgetl = XtCreateKanagedWidget ("Windowl" ,widgetClass , 
shelll ,arg ,6) ; 

XtAddEventBandler (winwidgetl , ExposureMask , FALSE, RePaint , NULL ); 
Xt Set Arg (arg [0] , XtNx, 0); 

XtSetArg(arg[l] , XtNy, 0); 

XtSetArg(arg[2] , XtNwidth, xsize); 

XtSetArg(arg[3] , XtNheight, ysize); 

Xt Set Arg (arg [4] , XtNbackground, fore); 

XtSetArg(arg[5] , XtNforeground, back); 

winwidget2 * XtCreateManagedWidget ("Window2" ,widgetClass , 
shell2,arg ,6) ; 

XtAddEventHandler(winwidget2 , ExposureMask, FALSE, RePaint, NULL); 
A window3 is 1024 x 512 */ 

XtSetArg(arg[0] , XtNx, 0); 

XtSetArg(arg[l] , XtNy, 0); 

XtSetArg(arg[2] , XtNwidth, 2*xsize); 
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XtSetArg(arg[3] , XtNheight, ysize); 

XtSetArg(arg[4] , XtNbackground, fore); 

XtSetArg(arg[S] , XtHf oreground , back); 

wineidget3 = XtCreateManagedWidget ("Window3 M ,widgetClasa , 
shel!3,arg,6) ; 

XtAddEventHandler(winwidget3, ExposureMask , FALSE, RePaint, FULL ); 
/♦ window4 is 1024 x 1024 */ 

XtS«tArg(arg[0] , XtNx, 0); 

XtSetArg(arg[l] , XtFy, 0); 

XtSetArg(arg[2] , XtFwidth, 2*xsize); 

XtSetArg(arg[3] , XtFheight, 2*ysize); 

XtSetArg(arg[4] , XtNbackground, fore); 

XtS«tArg(arg[6] , XtHforeground, back ); 

vinwidget4 = XtCreateManagedWidget ( "Window4 M , widgetClass , 

she!14,arg,6) ; 

XtAddEventHandler (winwidget4 , ExposureMask, FALSE, 

RePaint , FULL) ; 

A 

* allocate structures to hold images ; 

* iml , im2 for multi-screen display; 

* im3 and im4 for single-screen display. 

* 

*/ 

depth = XDef aultDepth(display ,Def aultScreen(display) ) ; 
bitmap .pad = 8; 

imi = XCreatelmage (display, Def aultVisual (display , 

Def aultScreen (display) ) , 
depth, ZPixmap, 0, Imagel, xsize, 
ysize, bitmap .pad, xsize*2 ); 
if (iml==0) 

{ 

printf ("Allocation of structure for image #1 f ailed. \n") ; 
exit (0) ; 

> 

im2 = XCreatelmage (display, Def aultVisual (display , 

DefaultScreen(display) ) , 

depth, ZPixmap, 0, Image2, xsize, 

ysize, bitmap.pad, xsize*2) ; 

if (im2==0) 

i 

printf ("Allocation of structure for image #2 f ailed. \n"); 
exit (0) ; 

> 

im3 = XCreateImage(display , Def aultVisual (display , 

Def aultScreen(display) ) , 

depth, ZPixmap, 0, Biglmagel, 2*xsize, 

2*ysize, bitmap.pad, xsize*4) ; 
il(im3==0) 

printf ("Allocation of structure for image #3 failed. \n"); 
exit(0) ; 
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> 

im4 = XCreatelmage (display, DefaultVisual (display, 

Def aultScreen(display) ) , 

depth, ZPixmap, 0, Biglmage2, 2*xsize, 

2*ysize, bitmap _pad, xsize*4); 
if (im4==0) 

{ 

printf ("Allocation of structure for image #4 failed. \n M ); 
exit (0) ; 

> 

ITI_init(); /* init. video board */ 

> /*end initializeO*/ 

/t*************************************************************************/ 

BuildColorMap2() 

{ 

int nnmcolors; 

XColor def 6 [MAXCOLORS] ; 
int i, j ; 

numcolors = XDisplayCellB(diBplay ,Def aultScreen(display)) ; 
for( i=0; i<MAXC0L0RS/2; i++) 

{ 

def s [i] .red = 

def s [i] .green = 

def s [i] .blue = (i+l)*512 - 1; 

def s [i] .flags = DoRed I DoGreen I DoBlue; 

if ( ! XAllocColor (display ,cmap,*defs [i] )) 

{ 

print f ("Unable to allocate color #y*d\n",i); 
exit(-l); /* exit */ 

> 

cols[i] = def s [i] .pixel ; 

> 

for ( i=MAXC0L0RS/2+ 1 ; i<170 ; i++ ) 

{ 

def s[i] .red = 0; 

def s [i] .green = 0 ; 

def s [i] .blue = (i+85)*512; 

def s [i] .flags = DoRed I DoGreen I DoBlue; 

if ( !XAllocColor(display ,craap,*def s[i] )) 

{ 

printf ("Unable to allocate color #%d\n",i); 
exit(-l) ; 

> 

cols[iJ = defs[i] .pixel; 

} 

for(i=170 ; i<212;i++) 

{ 

def s[i] .red = 0; 

def s [i] .green = (i+43)*S12; 

def s [i]. blue = 0; 

def s [i] .flags = DoRed [ DoGreen I DoBlue; 
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if ( IXAllocColor (display ,cmap,*defs [i] )) 

{ 

printf ("Unable to allocate color #'/,d\n",i); 

•xit(-l) ; 

> 

cola[i] = defB[i] .pixel; 

> 

for(i=212 ; i<258 ; i++) 

defs[i].red = i*512; 
defs[i] .green = 0; 
defa[i].blue = 0; 

defs[i] .flags = DoRed I DoGreen I DoBlue; 
if ( IXAllocColor (display ,cmap,fcdef s [i] ) ) 

{ 

printf ("Unable to allocate color #'/,d\n",i); 
exit(-i) ; 

> 

cols[i] = def s [i] .pixel ; 

> 

> 

/* 

* function to build monochrome color map for images 
*/ 

BuildMonoColormapO 

i 

int numcolors ; 

XColor def s [MAXC0L0RS] ; 
int i, j ; 

numcolors = XDisplayCells(display ,Def aultScreen(display)) ; 
for( i=0; i<HAXC0L0RS/2 ; i++) 

{ 

defs[i].red = 

def s [i] .green = 

def s [i] .blue = (i+l)*612; 

def s [i] .flags = DoRed I DoGreen I DoBlue; 

if ( !XAllocColor(display,cmap,kdefs[i] )) 

■[ 

printf ("Unable to allocate color #'/id\n",i); 
exit(-l); /* exit */ 

> 

monocols[i] = def s [i] .pixel ; 

> 

for( i=MAXCOLORS/2+l ; KMAXC0L0RS; i++) 

{ 

def s [i] .red = 
defs[i] .green = 

def s [i] .blue = B12*(i-127) - 1; 
defs[i] .flags = DoRed I DoGreen I DoBlue; 
if ( ! XAllocColor (display .cmap.fcdef b [ i] ) ) 

< 
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printf ("Unable to allocate color #'/,d\n",i); 
exit(-l); /* exit */■ 

> 

monocolaCi] = def s [i] .pixel ; 

> 

} 

B.2.2 Module xinterface.c 

/* xinterface.c 

* File contains source code for initializing the widgets and defining 

* callback functions for the X-RADAR program. 

* 

*/ 

#include "radar. h" /* inlcudes all X includes */ 

Widget create_mag_scale() ; 

/* external function declarations */ 
extern void exit(); 
extern void pop_down(); 
extern void nmlti_screen() ; 
extern void single_screen() ; 
extern Widget CreateTextWidget () ; 
extern Widget CreateErrorWidget () ; 
extern Widget CreateMsgWidget () ; 
extern Widget CreateScaleWidget () ; 
extern void BuildColorMapO ; 
extern int read_video_file( ) ; 
extern int read_radar_file( ) ; 
extern void create_rubber_gc() ; 
extern void start _rubber_band() ; 
extern void t rack. rubber _band( ) ; 
extern void end_rubber_band( ) ; 
extern void init_cursor ( ) ; 
extern void track_cursor () ; 
extern void end_cursor() ; 
extern void init_line(); 
extern void track_line() ; 
extern void end.lineO; 
extern void ITI.contO; 
extern void ITI_f rame() ; 
extern void ITI_camera() ; 
extern void image_loop() ; 

/* external global variable declarations */ 

extern Xlmage *iml, *im2, *im3, *im4; 

extern Display ^display; 

extern Colormap cmap; 

extern GC gel; 

extern XFontStruct *f ont ,*f ont2 ; 

extern Widget toplevel, top2, shell 1, 

shell2, shell3 , 

she!14. 
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winwidgetl, winwidget2, 
winwidget3 f winwidget4, 
popf ilel , popf ilela, popf ile2, 
popf ile3 ,popmove, 

Bcalepopl, scalepop2, 

box , err or. popup , ex it. mess age , 

image.message f 

buttoni ,button2, 

button3 ,button4 , 

buttons , buttons , 

button7 ,button8 , 

button© ,buttonlO, 

buttoni 1 ,button!2, 

buttonl3 ,buttonl4 , 

buttonlS ,buttonl6 , 

buttonl7 , 

color.scale, mono. scale; 

radar. data [IMAGE.PKTS] [6] ; 
gxpos 1 ,gxpos2 ,gxpos3 , gxpos4 ; 
gyp°si,gypos2,gypos3,gypos4; 
xsize ,ysize; 
cols [] ; 
monocols [] ; 

fore, back; 

red .white , blue .black ; 
scrnl.flag, scrn2.flag ; 
vidl.flag,vid2_flag; 

isar.f lag; 
mono ; 

rubber.band.data rb.data; 
cursor. data cur.data; 
line.data l.data; 


extern float 
extern int 
extern int 
extern int 
extern long 
extern long 
extern int 
extern unsigned int 
extern int 
extern Boolean 
extern Boolean 
extern Boolean 
extern 
extern 
extern 


extern widget.struct w.recl, w_rec2; 

extern char xscale_str[lO] .yscalel.str [10] , 

yscale2.str[10] ,ZBcale.str[10] ; 
extern float , x_scale,yl_scale,y2_scale,z.scale; 

extern float xy.angle, yz.angle; 

extern int x.dim, yl.dim, y2.dim, z.dim; 

extern int x.of f set ,y.of feet ,z_off set ; 

extern char bufferl[80], buff erla[80] , buffer2[80] ; 

extern FILE *fd.mapfile; 

extern char *vidrayl, *vidray2, ♦isarl, *isar2, *Imagel, *Image2; 

extern char *BigImagel, *BigImage2; 

/♦ CALLBACK FUNCTIONS */ 

/*********************************+*******************************************/ 
void VideoFileIn(w, client.data, call.data) 

Widget w; 

caddr.t client.data, call.data; 

{ 

char *file_name; 

char top.file[80] , side.f ile [80] ; 
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file_name = (char *) client_data ; /* get base file name */ 
strcpy(top_file , filename) ; /* save to array +/ 
strcpy(side_file ,f ile_name) ; 

■treat (top_file, M _top n ) ; /* append view */ 

■trcat(side_f ile/'^side' 1 ) ; / * to file name */ 
if (read_video_file(top_file ,vidrayl) ) /* read top view */ 

vidl.flag = True; 

Createlmage(vidrayl , iml ,xsize ,ysize) ; 

Great elmage ( vidray i , im3,2*xsize,2*ysize) ; 
if (scrnl.f lag) /* in single screen mode */ 

{ 

XPut Image (XtDisplay (winwidget4) ,XtWindow(winwidget4) , 
gel , im3, 0,0, 0,0, 2*xsize ,2*y size) ; 

XFlush(XtDisplay (winwidget4)) ; 

> 

else if ( !scrn2_flag) /* in multi screen mode */ 

i 

XPutlmage (XtDisplay (winwidgetl) ,XtVindow(winwidgetl) , 
gel , iml ,0,0 ,0,0 ,xsize ,y size) ; 

XFlush(XtDisplay (winwidgetl)) ; 

> 

> 

if (read_video_f ile(Bide_f ile,vidray2) ) /* read side view */ 

i 

vid2_flag = True; 

Great elmage (vidray 2, im2 ,x8ize,ysize) ; 

Creat elmage (vidray 2 ,im4 ,2*x size, 2*y size) ; 
if (scm2_flag) /* in Bingle screen mode showing #2 */ 

{ 

XPutImage(XtDisplay(winwidget4) ,XtVindow(winwidget4) , 
gel , im4, 0,0, 0,0, 2*xsize,2*y size) ; 

XFlush(XtDisplay (winwidget4)) ; 

> 

else if ( !scrnl_flag) /* in multi screen mode */ 

XPutImage(XtDisplay (winwidget2) ,XtWindow(winwidget2) , 
gel ,im2 ,0,0, 0,0 ,xsize ,y size) ; 

XFlush(XtDisplay(winwidget2)) ; 

> 

> 

> 

/***************************************************************************/ 
void VideoFileOut (w, client_data, call_data) 

Vidget w; 

caddr_t client.data, call_data; 

{ 

char *file_name; 

char top_file[80] , side_file[80] ; 
file.name = (char *) client _data; 

/* 
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* build filenames for both vievs 

♦/ 

atrcpy (top.f ile ,f ile.name) ; 
strcpy(side_f ile, f ile.name) ; 

Btrcat(top .file, ".top") ; 
strcat(side_f ile, ".side") ; 

/♦ 

* decide if two views exist and write the ones that do 

*/ 

if(vidl.flag) 

write.video.f ile (top.f ile , vidrayl) ; 
if (vid2.f lag) 

write.video.f ile (side. file ,vidray2) ; 

> 

/************** ***************************************************** 
void RadarFileIn(w, client .data, call.data) 

Widget w; 

caddr.t client.data, call.data; 

{ 

char *f ile.name; 

isar.flag = False; 

f ile.name = (char *)client.data ; 

if (read. radar. f ile (filename , radar data) ) 

{ 

AddRadarlmage(iml) ; 

AddRadarImage(im2) ; 

AddRadarImage(im3) ; 

AddRadarImage(im4) ; 

> 

> 

/************ ***********♦**************************♦*♦♦************♦*)»,******** i 

void IsarFileIn(w f client.data, call .data) 

Widget w; 

caddr.t client.data, call.data; 

{ 

char ^filename; 

isar.flag = True; 

filename = (char *)client_data; 

if (read.video.f ile (filename , isarl) ) 

Addlaarlmage (vidrayl ,isarl ,xsize t y size) ; 

> 

/******************************************** jm*******^*^^^^^^^^^^^ 

void switch_screen( w, closure, call.data ) 

Widget w; 

caddr.t closure, call data; 

{ 

static Arg args[lO]; 

if ( fscrnl.flag Aft !scrn2_flag) /* in multi screen mode ♦/ 

{ 

if (w == buttonl) /* screen 1 to full screen */ 

{ 
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XtSetArgCargs [0] f XtNlabel, M MULTI - SCREEN MODE M ); 
XtSetValuesCw ,args , 1) ; 
single. screen(im3) ; 

AddRadarlmag e ( im3 ) ; 
scrnl.flag = TRUE; 

> 

if(w « button2) /* screen 2 to full screen */ 

{ 

XtSetArgCargs [0] ,XtNlabel," MULTI - SCREEN MODE "); 
XtSet Values (w ,args , 1) ; 
single. screen(im4) ; 

AddRadar Image (im4) ; 
s cm2 .flag = TRUE; 

> 

> 

else if (scral.flag) /* screenl is full screen */ 

{ 

if(w == buttonl) /* going to multiscreen mode */ 

{ 

XtSetArgCargs [0] ,XtNlabel, M WIND0W1 -> FULL SCREEN "); 
XtSetValuesCw , args , 1) ; 
multi.screenO ; 

AddRadar Image ( iml ) ; 

AddRadarImage(im2) ; 
scm2_flag = FALSE; 

> 

if(w == button2) /* going to screen2 full screen */ 

XtSetArgCargs [0] f XtNlabel," MULTI - SCREEN MODE "); 
XtSetValuesCw, args , 1) ; 

XtSetArgCargs [0] ,XtNlabel," VIND0V1 -> FULL SCREEN "); 
XtSetValuesCbuttonl , args , 1 ) ; 
single. screenCim4) ; 

AddRadarImageCim4) ; 
scra2.flag = TRUE; 

> 

scrnl.flag = FALSE; 

> 

else if Cscra2.f lag) /♦ screen2 is full screen */ 

if(w =* buttonl) /* going to screenl to full screen */ 

XtSetArgCargs [0] ,XtNlabel, M MULTI - SCREEN MODE "); 
XtSetValuesCw , args ,1) ; 

XtSetArgCargs [0] ,XtNlabel," VIND0W2 -> FULL SCREEN M ); 
XtSetValuesCbutton2 ,args ,1) ; 
single_screen(im3) ; 

AddRadarImageCim3) ; 
scrnl.flag = TRUE; 

> 

ifCw *■ button2) /* going to multi-screen mode */ 
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{ 

XtSetArg(args[0],XtNlabel," WIND0V2 -> FULL SCREEN "); 

XtSetValues(w,args,l) ; 
multi_screen() ; 

AddRadarlmage(iml) ; 

AddRadarImage(im2) ; 
scrnl.flag = FALSE; 

> 

scrn2_flag = FALSE; 

> 

> 

/I****************************************************************************/ 

void switch_maps(w,client_data,call_data) 

Widget w; 

caddrjt client _data, call .data; 

{ 

static Arg argstlO]; 

if (mono) /+ change Hag and menu button */ 

{ 

mono - False; 

XtSet Arg ( args [0] , XtNlabel , M SWITCH TO MONOCHROME "); 

XtSetArg(args [l] ,XtNwidth,245) ; 

XtSetValues ( w , args , 2 ) ; 

XtPopdown(mono_scale) ; 

XtPopup(color_scale , XtGrabNone) ; 

> 

else 

{ 

mono = True; 

XtSetArg(args [0] ,XtNwidth,245) ; 

XtSet Arg(args[i] .XtNlabel SWITCH TO COLOR ”); 

XtSetValues(w,args ,2) ; 

XtPopdown(color_scale) ; 

XtPopup(mono. scale , XtGrabNone) ; 

> 

XSync (display ,0) ; 

/* 

* Now, build and display new images 
*/ 

if ( ! scrnl.flag A* !scm2_flag) /* in single screen mode */ 

Wr it eMes sage (’’Please wait, this will take awhile... ”, 
XtWindow(winwidgetl) ,6,505, white) ; 


else 


WriteMessage( M Please wait, this will take awhile...", 
Xt Window (winwidget4) ,300, 1020, white) ; 
Createlmage(vidrayl ,iml ,xsize ,ysize) ; 

Createlmage(vidrayl , im3,2*xsize,2*ysize) ; 
CreateImage(vidray2,im2,X8ize ,ysize) ; 

Great elmage ( vidray2, im4,2*xsize,2*y size) ; 

if (!scrnl_flag Aft !scrn2_flag) /* in multi-screen mode */ 

{ 
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SubRadarlmage(iml) ; /* clear top window */ 

XPutImage(XtDisplay (winwidgetl) ,XtWindow(winwidget 1) , 
gel ,imi ,0,0,0,0,xsize,ysize) ; 

AddRadarlmage(iml) ; /* add radar image to new image */ 

SubRadarImage(im2) ; /* clear other window */ 

XPut Image (XtDi splay (winwidget2) ,Xt Window (winwidget 2) , 
gel ,im2,0,0,0,0,XBize,ysize) ; 

AddRadarImage(im2) ; 

XFlush(XtDisplay(winwidget2)) ; 

> 

if (scrnl.f lag) /* in single screen mode */ 

{ 

SnbRadarlmage ( im3) ; 

XPutImage(XtDisplay(winwidget4) ,XtWindow(winwidget4) , 
gel ,im3,0,0 ,0,0, 2*xsize,2*y size) j 
AddRadarImage(im3) ; 

XFlush(XtDisplay (winwidget4)) ; 

> 

if (scra2_flag) 

{ 

5ubRadarImage(im4) ; 

XPutImage(display ,XtWindow(winwidget4) , 
gei ,im4, 0,0, 0,0, 2*xsize,2*y size) ; 

AddRadarlmage ( im4 ) ; 

XFlush(XtDisplay (winwidget4)) ; 

> 

if ( * scrnl.f lag Aft !scrn2_flag) /* in single screen mode */ 

WriteMessage("Please wait, this will take awhile...", 

XtWindow( winwidgetl) ,5 ,505 .black) ; 

else 

WriteMessageO'Please wait, this will take awhile..,", 
XtWindow(winwidget4) ,300, 1020, black) ; 

> 

/******* ************************************************************** ****+**+/ 
void Shift Image( w, closure, call.data ) 

Widget w; 

caddr.t closure, call.data; 

{ 

Time time; 

/* 

* can 1 1 shift 1SAR image 

*/ 

if (isar.f lag) 

Error .window (5,0, NULL) ; 
return; 

> 

/* 

* must be in single screen node to set offsets : do error window 

* and return. 

*/ 
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if (( !scrnl_flag) ( ! scrn2_flag) ) 

{ 

Error_window(4,0,NULL) ; 
return; 

> 

/* set up cursor stuff */ 

XtAddEventHandler(winwidget4 , PointerMotionMask, 

False, track_cursor, *cur_data) ; 

XtAddEventHandler(winwidget4, ButtonPressMask, 

False, end.cursor, *cur_data) ; 

XGrabPointer(XtDisplay (winwidget4) , 

XtWindow(winwidget4) ,True , 

PointerMotionHask I ButtonPressMask , 

GrabModeAsync , GrabModeAsync , XtWindow(winwidget4) , 

XCreateFontCursor(XtDisplay (winwidget4) ,XC_crosshair) , 
time); 

init_cursor(w ,*cur_data) ; 

> 

/********************************+***+*********+********+****+*♦*+*****+******/ 
void RotateImage(w , client_data,call_data) 

Widget w; 

caddrjt call_data , client _data ; 

i 

Time time; 

/* 

* can't rotate ISAR image 
*/ 

if (isar.f lag) 

{ 

Error ^window (5,0, NULL) ; 
return; 

> 

/* 

* must be in single screen mode to do rotation : do error window 

* and return. 

*/ 

if ((Iscrnijflag) kk ( ! scrn2_f lag) ) 

{ 

Error_window(6,0,NULL) ; 
return; f 

> 

/* set up cursor stuff •/ 

XtAddEventBandler(w inwidget 4 , PointerMotionHask , 

False, track.line, tl_data); 

XtAddEventHandler (winwidget4 , ButtonPressMask, 

False, endJLine, Jtl.data); 

XGrabPointer(XtDisplay (winwidget4) , 

Xt Window ( w inw idget 4 ) ,True, 

PointerMotionHask I ButtonPressMask , 

GrabModeAsync, GrabModeAsync, XtWindow(winwidget4) , 
XCreateFontCursor(XtDisplay(winwidget4) ,XC_crosshair) , 
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time) ; 

init_line(winwidget4,Al_data) ; 

> 

/I.**************************************************************#*************/ 

void PopupScalel(w , client _data, call.data) 

Widget w; 

caddrjt client_data, call_data; 

{ 

if (iaar_f lag) /♦ can't scale isar image */ 

/* pop-up error message and exit function */ 

Error_window( 5,0, NULL) ; 
return; 

> 

/* 

* check to see if in window #1 single Bcreen mode 
*/ 

if (scrnl.flag) 

{ 

/* set up rubber band stuff */ 

XtAddEventHandler(winwidget4, ButtonPressMask, 

FALSE, start_rubber_band, trb_data) ; 

XtAddEventHandler(winwidget4 , ButtonMotionMask, 

FALSE, track _rubber..band, krbjiata) ; 

XtAddEventHandler (winwidget4 , ButtonReleaseMask , 

FALSE, end .rubber _band , *rb_data) ; 

XGrabButton(XtDisplay(winwidget4) , AnyButton, AnyModifier, 

XtWindow(winwidget4) , TRUE, 

ButtonPressMask I ButtonMotionMask I ButtonReleaseMask, 

GrabModeAsync , GrabModeAsync , XtWindow(winwidget4) , 
XCreateFontCursor(XtDisplay(winwidget4) ,XC_crosshair) ) ; 

XtPopup(scalepopl , XtGrabNone) ; 

> 

else 

Error_window(3 ,0 ,NULL) ; 

> 

/****** I************************************************************* *******/ 

void PopupScale2(w , client_data, call_data) 

Widget w; 

caddrjt client _data, call_data; 
if (isar_f lag) 

{ 

/* pop-up error message and exit function */ 

return; 

> 

/♦ 

* check to see if in window #2 single screen mode 

*/ 

if (scm2_flag) 
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{ 

/* set up rubber band stuff */ 

Xt AddE vent Handler (winwidget4 , ButtonPressMask , 

FALSE, start.rubber.band , trb.data) ; 

XtAddEventHandler(winwidget4, ButtonMot ionMask, 

FALSE, t rack .rubber .band, Arb.data) ; 

XtAddEventHandler(winwidget4 , ButtonReleaseMask , 

FALSE, end.rubber.band , Arb.data) ; 

XGrabButton(XtDisplay(winwidget4) , AnyButton, AnyModifier, 

XtWindow(winsidget4) , TRUE, 

ButtonPressMask I ButtonHotionMask ! ButtonReleaseMask, 

GrabModeAsync, GrabModeAsync , XtWindov(sinwidget4) , 

XCreateFontCurBor(XtDisplay (winwidget4) , XC. crosshair) ) ; 

XtPopup(scalepop2 , XtGrabNone); 

> 

else 

Error.sindow(3,0,FULL) ; 

> 

/********* **************************** ******* *********************************/ 
void SetScalel(w, client.data, call. data) 

Vidget v; 

caddr.t client .data, call.data; 

{ 

char **dummy; 

char *temp; _ 

/* remove event handlers and button grab */ 

XtRemoveEventHandler(winwidget4, ButtonPressMask , 

FALSE, start .rubber.band, Arb.data) ; 

XtRemoveEventHandler(sinwidget4, ButtonReleaseMask, 

FALSE, end. rubbe riband, Arb.data); 

XtRemoveEvent Handler (win?idget4 , ButtonMot ionMask , 

FALSE, track.rubber.band , Arb.data); 

XUngrabButton(XtDisplay (winwidget4) , AnyButton, AnyModifier, 

XtWindow(winsidget4) ) ; 

x.scale = (float) (x_dim)/2./atof (xscale.str) ; 
yl. scale = (float) (yl.dim)/2 ./atof (yscalel str) ; 

> 

Z^**************************************************************************^ 

void SetScale2(s, client. data, call.data) 

Vidget v; 

caddr.t client .data, call.data; 

{ 

/* remove event handlers and button grab */ 

XtRemoveEventHandler(winwidget4, ButtonPressMask , 

FALSE, st art .rubber. band, Arb.data); 

XtRemoveEventHandler(winwidget4, ButtonReleaseMask, 

FALSE, end. rubber. band, Arb.data); 

XtRemoveEvent Handler (winsidget4, ButtonMot ionMask , 

FALSE, track .rubber. band, Arb.data); 

XUngrabButton(XtDisplay(vinvidget4) , AnyButton, AnyModifier, 
XtWindow(winwidget4)) ; 
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y2_scale = (float) (y2.dim)/2 . /atof (yscale2.str) ; 
z.scale = (float) (z_dim)/2./atof (zscale.str) ; 

> 

/**********************************************************************♦******/ 
void RadarFilePopup(y, closure, call.data ) 

Widget w; 

caddr.t closure, call.data; 

{ 

XtPopup(popf ile2 ,XtGrabNone) ; 

> 

void VideoFilePopup(w, closure, call.data ) 

Widget w; 

caddr.t closure, call.data; 

{ 

XtPopup(popfilei ,XtGrabNone) ; 

> 

void VideoFilePopupla(w , client.data, call.data) 

Widget w; 

caddr.t client.data, call.data; 

XtPopup(popf ilela,XtGrabNone) ; 

> 

void IsarFilePopup(w , client .data, call.data) 

Widget w; 

caddr.t client.data, call.data; 

{ 

XtPopup(popf ile3,XtGrabNone) ; 

> 

/t**************************** *4 **************************** ******************/ 

/* video board callbacks */ 

void vid_cont(w, client.data, call.data) 

Widget w; 

caddr.t client .data, call.data; 

{ 

ITI.cont () ; 

> 

void vid.single(w, client .data, call.data) 

Widget w; 

caddr.t client .data, call.data; 

{ 

unsigned char ^camera; 

camera = (unsigned char +)client_data; 

ITI.f rame(*camera) ; 

> 

void switch_camera(w, client .data, call.data) 

Widget v; 

caddr.t client.data, call.data; 

{ 
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static char label_string[30] ; 

static Arg arg[] = { {XtNlabel, (XtArgVal) label .string} }; 

unsigned char * camera; 

camera = (unsigned char ♦) cl ient.dat a; 

♦camera = '(♦camera); /♦ alternative is camera #i (side) */ 

if (♦camera) 

sprintf (label. string , " SWITCH TO OVERHEAD CAM "); 

XtSetValues (w , arg , 1) ; 

> 

else 

sprintf (label.string , M SWITCH TO SIDEVIEW CAM M ) ; 

XtSetValues (w,arg, 1) ; 

> 

ITI.camera(*camera) ; 

> 

/*+*************************♦♦♦♦♦+♦♦♦♦+♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦***♦***♦* **♦♦♦♦♦♦♦♦♦♦♦♦/ 
void Bye( w, closure, call.data ) 

Widget w; 

caddr.t closure, call.data; 
printf ( H Bye\n M ) ; 

ITI.closeO; /♦ close VME allocations ♦/ 

XtDestroyWidget (toplevel) ; /♦ destroy all widgets ♦/ 

XtDestroyWidget (top2) ; 

XFreeColormap(XtDisplay(XtParent (w) ) ,cmap) ; /♦ free colormap alloc. +/ 
fflush(stdout) ; /* clean I/O channel ♦/ 

exit (0) ; 

> 

/*+*♦** ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦**♦♦♦*♦*♦♦♦*♦****♦***********+*************** ********/ 
/♦ setup main user interface with Widgets ♦/ 

void xinteractO 

i 

Arg args[10]; 

Cardinal i; 
char name [100]; 

static unsigned char cam =0; /♦ init. to overhead camera ♦/ 

static XtCallbackRec callback[2]; 
static XtPopdownIDRe c pdrecl ,pdrec2; 
f ont=XLoadQueryFont (display , "PellucidaSer if 14B") ; 
font 2 =XLoadQueryFont (display , n PellucidaSerifi2B M ) ; 

/♦ 

♦ Setup arguments for toplevel shell for menu 

♦/ 

XtSetArg(argB[l] , XtNwidth, 256); 

XtSetArg(args [2] , XtRheight, 1024); 

XtSetArg(args [3] , XtNtransient , TRUE); 

XtSetArg(args[4] , XtRx, 1024); 

XtSetArg(args [5] , XtHy, 0); 
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Si III 


XtSetArgCargs [6] , XtNf oreground , fore) ; 

XtSetArgCargs [7] , XtNbackground .back) j 
XtSetValues(toplevel,args ,8) ; 

/♦ 

* use same arguments lor box lor menu 
♦/ 

box = XtCreateManagedWidget (“BOX”, boxWidgetClass , 
toplevel, args, EIGHT); 

/* 

* create menu items to go in box 

*/ 

XtSetArgCargs [0] , XtNfont, font); 

XtSetArg(args [l] , XtNf oreground .white) ; 

XtSetArgCargs [2] , XtNbackground , blue) ; 

XtSetArg(args [3] , XtNwidth,245) ; 

XtSetArgCargs [4] , XtNheight ,40) ; 

XtCreateManagedWidget ( "OSU/NASA X RADAR" f labelWidgetClass , box, args, 5) 
XtSetArg(args [0] , XtNfont, f ont2) ; 

XtSet Arg(args [1] , XtNf oreground, white) ; 

XtSetArgCargs [2] , XtNbackground, blue) ; 

XtSetArgCargs [3] ,XtNwidth,245) ; 

XtCreateManagedWidget ( M FILE I/O ", 

labelWidgetClass , box, args, 4); 

XtSetArg(args [0] , XtNf oreground, blue) ; 

XtSetArg(args [1] , XtNbackground, white) ; 

XtSetArg(args [2] ,XtNwidth ,246) ; 

buttonC = XtCreateManagedWidget (" READ VIDEO IMAGE FILE ", 
commandWidgetClass , box, args, 3); 

XtSetArgCargs [0] , XtNf oreground, blue) ; 

XtSetArgCargs [1] , XtNbackground, white) ; 

XtSetArgCargs [2] ,XtNwidth,245) ; 

button9 = XtCreateManagedWidget C M WRITE VIDEO IMAGE FILE ", 
commandWidgetClass, box, args, 3); 

XtSetArgCargs [0] , XtNf oreground , blue) ; 

XtSetArgCargs [1] , XtNbackground, white) ; 

XtSetArgCargs [2] ,XtNwidth,246) ; 

button7 = XtCreateManagedWidget (" READ RADAR IMAGE FILE ", 
commandWidgetClass, box, args, 3); 

XtSetArgCargs [0] , XtNf oreground, blue) ; 

XtSetArgCargs [1] , XtNbackground, white) ; 

XtSetArgCargs [2] , XtNwidth,245) ; 

buttonie = XtCreateManagedWidget ("READ ISAR IMAGE FILE", 
commandWidgetClass , box , args ,3) ; 

XtSetArgCargs [0] , XtNf oreground ,blue) ; 

XtSetArgCargs [1] , XtNbackground, white) ; 

XtSetArgCargs [2] , XtNwidth, 24S) ; 
buttonlB = XtCreateManagedWidget ("REAL TIME DP", 
commandWidgetClass, box, args, 3); 
XtAddCallback(buttonl5,XtNcallback,image_loop,NULL) ; 

XtSetArgCargs [0] , XtNfont, font2); 

XtSetArgCargs [l] , XtNf oreground .white) ; 
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XtSet Arg ( args [2] , XtNbackground , blue) ; 

XtSetArgCargs [3] ,XtNwidth,245) ; 

XtCreateManagedWidget ( " VIDEO IMAGE CONTROL ", 
labelWidgetClass, box, args, 4); 

callback [0] . callback = switch_screen; 

XtSetArgCargs [0] , XtNcallback, callback ); 

XtSetArg(args [l] , XtNforeground ,blue) ; 

XtSetArgCargs [2] , XtNbackground, white) ; 

XtSet Arg(argB [3] ,XtNwidth ,245) ; 

button! = XtCreateManagedWidgetC" WIND0W1 -> FULL SCREEN ", 
commandWidgetClass, box, args, 4); 
callback [0] .callback = switch_screen; 

XtSetArgCargs [0] , XtNcallback, callback ); 

XtSetArgCargs [lj , XtNf oreground, blue) ; 

XtSetArgCargs [2] , XtNbackground, white) ; 

XtSetArgCargs [3] ,XtNwidth ,245) ; 

but ton 2 = XtCreateManagedWidgetC' 1 WIND0W2 -> FULL SCREEN ", 
commandWidgetClass, box, args, 4); 

callback [0] .callback = switch_maps; 

XtSetArgCargs [0] , XtNcallback, callback); 

XtSetArgCargs [l] , XtNf oreground , blue); 

XtSetArgCargs [2] , XtNbackground, white); 

XtSetArgCargs [3] , XtNwidth,245) ; 

but ton 17 = XtCreateManagedWidgetC” SWITCH TO MONO MAP ", 
commandWidgetClass , box , args ,4) ; 

XtSetArgCargs [0] , XtNfont, font2); 

XtSetArgCargs [1] , XtNf oreground , white); 

XtSetArgCargs [2] , XtNbackground, blue); 

XtSetArgCargs [3] ,XtNwidth ,245) ; 

XtCreateManagedWidgetC ” VIDEO BOARD CONTROL ", 
labelWidgetClass, box, args, 4); 

XtSetArgCargs [0] , XtNf oreground, blue); 

XtSetArgCargs [1] , XtNbackground, white); 

XtSetArgCargs [2] ,XtNwidth,245) ; 

buttonii = XtCreateManagedWidgetC” LIVE VIDEO TO MONITOR ", 

commandWidgetClass, box, args, 3); 

XtAddCallback (buttonii , XtNcallback ,vid_cont .NULL) ; 
XtSetArgCargs [0] , XtNf oreground, blue); 

XtSetArgCargs [1] , XtNbackground, white); 

XtSetArgCargs [2] ,XtNwidth,245) ; 

but ton 12 = XtCreateManagedWidgetC” FRAME GRAB TO COMPUTER ", 
commandWidgetClass, box, args, 3); 

XtAddCallback (buttonl2, XtNcallback , vid. single, team) ; 
XtSetArgCargs [0] , XtNf oreground, blue); 

XtSetArgCargs [1] , XtNbackground, white); 

XtSetArgCargs [2] ,XtNwidth,245) ; 

but ton 13 = XtCreateManagedWidgetC " SWITCH TO SIDEVIEW CAM ", 
commandWidgetClass, box, args, 3); 

XtAddCallback (button!3, XtNcallback ,switch_camera, Acam) ; 
XtSetArgCargs [0] , XtNfont, font2); 

XtSetArgCargs [1] , XtNf oreground, white); 
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XtSetArgCargs [2] , XtNbackground, blue); 

XtSetArgCargs [3] ,XtNwidth,245) ; 

XtCreateManagedWidget ( " RADAR IMAGE CONTROL ", 
label WidgetClass, box, args, 4); 

callback [Oj . callback = Shiftlmage; 

XtSetArg( args [0] , XtNcallback, callback ); 

XtSetArg(args [1] , XtNf or ©ground, blue); 

XtSetArg(args[2] , XtNbackground, white); 

XtSetArgCargs [3] ,XtNwidth,245) ; 

button8 = XtCreateManagedWidget (" SHIFT RADAR IMAGE ", 
conunandWidgetClass , box, args, 4); 
callback [0] .callback = Rotatelmage; 

XtSetArgC args[0], XtNcallback, callback ); 

XtSetArgCargs [1] , XtNf or aground, blue); 

XtSetArg(arg8 [2] , XtNbackground, white); 

XtSetArgCargs [3] ,XtNwidth, 245) ; 

button8 = XtCreateManagedWidget (" ROTATE RADAR IMAGE ", 
conunandWidgetClass, box, args ,4); 

XtSetArgCargs [0] , XtNf oreground, blue); 

XtSetArgCargs [1] , XtNbackground, white); 

XtSetArgCargs [2] ,XtNwidth,245) ; 

button3 = XtCreateManagedWidget (" WIND0W1 SCALE FACTORS ", 
conunandWidgetClass, box, args, 3); 

XtSetArgCargs [0] , XtNf oreground, blue); 

XtSetArgCargs [1] , XtNbackground, white); 

XtSetArgCargs [2] ,XtNwidth,245) ; 

button4 = XtCreateManagedWidget C M WIND0W2 SCALE FACTORS ", 
conunandWidgetClass, box, args, 3); 

XtSetArgCargs [0] , XtNfont, font2) ; 

XtSetArgCargs [1] , XtNf oreground , white); 

XtSetArgCargs [2] , XtNbackground, blue); 

XtSetArgCargs [3] ,XtNwidth,245) ; 

XtCreateManagedWidget ( " SYSTEM CALLS ", 
labelWidgetClass, box, argB , 4); 
callback [0] .callback = Bye; 

XtSetArgC args [0] , XtNcallback, callback ); 

XtSetArgCargs [1] , XtNf oreground, blue); 

XtSetArgCargs [2] , XtNbackground, white); 

XtSetArgCargs [3] ,XtNwidth,245) ; 
button8 = XtCreateManagedWidget (" EXIT ", 
conunandWidgetClass, box, args, 4); 

/* 

* create 2 popup magnitude color bars, one for color, the other for mono 

♦/ 

color.scale = create_mag_scaleCtoplevel ,cols) ; 
mono.Bcale = create.mag.scaleCtoplevel ,raonocols) ; 

/* 

* create popup text windows for file name entry 
*/ 

popfilel = CreateTextWidget(toplevel, "Enter video image filename 

VideoFileln, buffer 1,512, 800) ; 
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popfilela = CreateTextWidget (toplevel, "Enter filename for video image 
VideoFileOut ,bufferla,512,800) ; 

popf ile2 = CreateTextWidget (toplevel , "Enter radar image filename 
RadarFileln.buf f er2 ,512 ,800) ; 

popf ile3 = CreateTextWidget (toplevel,"Enter ISAR image filename 
IaarFileIn,buffer2,512,800) ; 

/* 

* add callbacks to appropriate buttons to activate popnps; 

* this works better than installing at creation. 

*/ 

XtAddCallback (buttons, XtNcallback, VideoFilePopup, NULL) j 
XtAddCallback ( button? .XtNcallback , Radar Fi 1 eP opup , IULL ) ; 

Xt AddCallback (buttons, XtNcallback .VideoFilePopupla, MULL) ; 
XtAddCallback (buttonl6,XtHcallback,IsarFilePopup, MULL) ; 

/* 

* create a popup shell for displaying error messages 
*/ 

error_popup = CreateErrorWidget (toplevel) ; 

/* 

* create two popups for scaling the radar image and register 

* callbcks to pop them up. 

*/ 

scalepopl = CreateScaleWidget (toplevel , 

" SCALE FACTORS FOR WINDOW #1 ", 

"Set horizontal dimension (inches) ", 

"Set vertical dimension (inches) ", 

SetScalel ,xscale_str,yscalel_str , 

*w_recl ,0,850) ; 

scalepop2 = CreateScaleWidget (toplevel , 

" SCALE FACTORS FOR WINDOW #2 ", 

"Set horizontal dimension (inches) ", 

"Set vertical dimension (inches) ", 

SetScale2,yscale2_str,zscale_str , 

Aw_rec2,512,850) ; 

XtAddCallback (but ton3 , XtNcallback .PopupScalel .NULL) ; 

XtAddCallback (button4 , XtNcallback ,PopupScale2 .MULL) ; 

/* 

* set up gc for rubber band lines 
*/ 

create_rubber_gc(winwidget4,Arb_data) ; 

/* 

* realize toplevel widget and all of its children 
*/ 

XtRealizeWidget (toplevel) ; 

XSetWindowColormap(XtDisplay(toplevel) .XtWindow(toplevel) ,cmap) ; 
XtPopup(shelll , XtGrabNone) ; 

XSetWindowColormap(XtDi splay ( shell 1) ,XtWindow(shelll) ,cmap) ; 
XtPopup(shell2 , XtGrabNone); 

XSetWindowColormap(XtDisplay(shell2) ,XtWindow(shell2) ,cmap) ; 
XtPopup(shell3, XtGrabNone); 

XSetWindowColormap(XtDisplay(shell3) ,XtWindow(shell3) ,cmap) ; 
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XtPopup(color_Bcale .XtGrabNone) ; 

> 

/** *********** **** ** ** * ****** ********* ************* *******************/ 
Widget create_mag_ scale (parent , col ormap) 

Widget parent ; 
unsigned long * colormap; 

{ 

Arg arg8 [10] ; 

Widget popup .box; 
char geom_str [20] ; 
int x_Bize,y_size; 

XtTranslations transjtable; 

/♦ 

* create a popup shell 

*/. 

x_size = 230; 
y.size = 300; 

sprintf Cgeom.str/’Xlix'/.li" ,x_size,y_size) ; 

XtSetArgCargs [0] , XtNy, 676); 

XtSetArgCargs [1] , XtNx, 1030); 

XtSetArgCargs [2] , XtNgeometry ,geom_str) ; 

XtSetArgCargs [3] , XtNallowShellResize .False) ; 

popup = XtCreatePopupShell C "popup" .transientShellWidgetClass , 

parent »args ,4) ; 

XtSetArgCargs [0] .XtNheight ,300) ; 

XtSetArgCargs [1] ,XtNwidth,230) ; 

XtSetArgCargs [2] .XtNforeground ,f ore) ; 

XtSetArg(args [3] .XtNbackground, back) ; 

box = XtCreateManagedWidget (“box" f boxWidgetClass , popup, arg b ,4) ; 

/* create a simple color bar for magnitude scale */ 

XtSetArg(args [0] , XtNbackground ,colormap[266] ) ; 

XtSetArg(args [1] , XtNforeground, white) ; 

XtSetArg(args [2] , XtNf ont ,f ont2) ; 

XtSetArgCargs [3] .XtNheight ,50) ; 

XtSetArg(args [4] ,XtNwidth,230) ; 

XtCreateManagedWidget ( H 0 dB " , labelWidgetClass , 
box ,args ,5) ; 

XtSetArg(args[0] , XtNbackground, colormap [230] ) ; 

XtCreateManagedWidget ( M -5 dB ", labelWidgetClass , 
box ,args ,5) ; 

XtSetArgCargs [0] .XtNbackground, colormap [205] ) ; 

XtCreateManagedWidget (” -10 dB M .labelWidgetClass , 
box.args ,5) ; 

XtSetArg(args [0] .XtNbackground, colormap [180] ) ; 

XtCreateManagedWidget (" -15 dB M .labelWidgetClass , 
box.args, 5); 

XtSetArgCargs [0] .XtNbackground, colormap [155] ) ; 

XtCreateManagedWidget ( M -20 dB " .labelWidgetClass , 
box.args, 5) ; 

XtSetArgCargs [0] .XtNbackground, colormap t 130] ) ; 

XtCreateManagedWidget (” -25 dB " .labelWidgetClass , 
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box.args ,5) ; 
return(popup) ; 
> 


B.2.3 Module ximage.c 

/* ximage.c 

* 

* file of routines for manipulating video and radar images 

*/ 

tinclude "radar. h" /* includes all X includes */ 

/*♦* Function prototypes for this module **♦/ 

void start_rubber_band() ; 

void end_rubber_band() ; 

void track_rubber_band() ; 

void init_cursor( ) ; 

void track_cursor() ; 

void end_cursor() ; 

void init_line() ; 

void track JLine() ; 

void end_line(); 

void mult i_s ere en( ) ; 

int AddRadar Image ( ) ; 

int SubRadarlmage ( ) ; 

int Cl ear Radar Dat a ( ) ; 

int single_screen() ; 

extern double squareQ; 

extern int rndf(); 

extern rotate_point () ; 

extern Xlmage *iml ,*im2,*im3 ,*im4; 

extern Display *display; 

extern Colormap cmap; 

extern GC gcl,gc2; 

extern Widget toplevel, top2 f 

shell i, shell2 # 

shell3 y shell4 p 

winwidgetl, winwidget2, 

winwidget3 t winwidget4, 

popf ilei f popfile2, error _popup,popmove , 

image .message, 

box, butt on 1 ,button2, 

buttons ,button4 , 

buttons , buttons , 

button7 ,button8 , 

button® , butt on 1 0 , 

buttonli ,buttoni2, 

buttonl3 .button 14 ; 

extern int scrni_f lag,scra2_f lag; /* flags set if in single screen mode ♦/ 
extern Boolean mono; /* flag set if using mono colormap */ 

extern int num_pnts; /* # of points in current radar image */ 

extern float in_angle; A incident angle of plane wave */ 
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extern Boolean vidl_f lag,vid2_flag ; 
extern Boolean isar.flag; 
extern widget_struct w_recl, w_rec2; 
extern rubber_band_data rb.data; 
extern cursor^data cur_data; 
extern line_data l_data; 
extern unsigned long co1b[256]; 
extern unsigned long monocols [256] ; 
extern char bufferl[80], buffer2[80]; 
extern int gxposl, gyposi, 

gxpos2, gypos2, 
gxpos3 , gypos3, 
gxpoB4, gypos4, 
xsize, ysize, 
screen; 

extern unsigned lore jback^red.white^lue^lack; 
extern float radar .data [IMAGE_PNTS] [6] ; 
extern char *vidrayl, ♦vidray2, *isarl, *isar2; 
extern char *Imagel, *Image2, *BigImagel p +Biglraage2; 
extern float x_scale p yi_scale p y2_scale ( z_scale; 
extern float xy_angle, yz_angle; 
extern int x_dim p yl_dim, y2_dim p z_dim; 
extern horizontal _f lag; 

extern int x_of f set ,yl_of f set ,y2_of f set »z_off set ; 

/I****************************************************************************/ 

Createlmage(raw_image , image , xsize ,ysize) 
char *raw_image; 

Xlmage *image; 
int xsize,y8ize; 

{ 

int x »y ,x2 ,y2 t x2i ,y2i ; 

int xlimit .ylimit ; 

unsigned char dat ; 

unsigned long *colormap; 

unsigned long color; 

if (mono) colormap = monocols; 

else colormap = cols; 

if (xsize == 512) /* doing small image */ 

< 

for(y=0; y<ysize; y++) 

for(x=0; x<xsize; x++) 

XPutPixel(image p x p y , colormap [*(raw_image + x + y*512)]); 

> 

> 

else /* doing big image */ 

{ 

xlimit = xsize/2; /* for speed */ 
ylimit = ysize/2; 

f or(y=0;y<ylimit ;y++) /* loop thru raw data */ 
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y2 = 2*y; /* for speed */ 
y21 = y2+l ; 

for(x=0;x<xlimit;x++) /♦ dup. pixels into big image */ 

x2 = 2*x; /* for speed */ 
x21 = x2+l ; 

color = colormap [*(raw_image + x + 512*y)] ; 

XPutPix el ( image ,x2 ,y2, color) ; _ .. ..... 

XPutPixel(image ,x21 ,y2 , color) ; 

XPutPixel(image ,x2 ,y21 , color) ; 

XPutPixel(image ,x2i,y21 .color) ; 

> 

> 

> 

} 

/***************+**********+***********************+*********+*+**++** ********/ 
AddRadar Image ( image ) 

Xlmage * image; 

i 

unsigned int width .height ; /* size of image point */ 
unsigned int px.py; /* screen coords, of point */ 
unsigned int magt; 
int i ; 

float x.y.z; /* temp, vars . */ 
float rin.angle; 
unsigned long *colormap; 

if (mono) colormap = monocols; /* set color map pointer */ 

else colormap = cols; 

width = height = 6; 

rin.angle = “PI/180.*in_angle; 

if( image == imi ) 

< 

f or(i=0 ; i<num_pnts ; i++) 

{ 

x * radar _data[i] [0] ; 
y = radar_data[i] [1] ; 
rotate_point(*x,*y ,xy_angle) ; 

px = rndf (x_scale*y - width/2. + x_offset + 256); 
py = rndf (y l_scale*x - height/2. + yl_offBet + 240); 
magt - rndf (255+80*logl0( (float) (radar_data[i3 [3]))); 

XSetForeground (display ,gcl , colormap [magt] ) ; 

XFillRect angle (display .XtWindow(winwidgetl) # 
gel , px.py .width, height) ; 

> 

if (!isar_flag) 

draw^arrow (white ,rin_angle+xy .angle) ; /* draw arrow */ 

> 

if ( image == im2 ) 

i 

for(i=0; i<num_pnts;i++) 

i 
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y = radar_data[i] [1] ; 
z = radar_data[i] [2] ; 
rotate.point (kx ,*y ,yz_angle) ; 

px = rndf (fabs(y2_scale)*y - width/2. + y2_offset + 256); 
py = rndf (-fabs (z_scale)*z - height/2. + z.offset + 240); 
magt = rndf (255+80*logl0( (float) (radar.dat a [i] [3] ) ) ) ; 

XSetForeground(display ,gci , colormap [magt] ) ; 

XFillRectangle(display ,Xt Window (winwidget2) , 
gc 1 , px , py , width f he ight ) ; 

> 

> 

if( image == im3 ) 

{ 

for(i=0 ; icnum.pnts ; i++) 

{ 

x = radar_data [i] [0] ; 
y = radar.data [i] [1] ; 
rotate.point (kx ,*y , xy.angle) ; 

px = rndf (2* (fabs (x. scale) *y - width/2. + x.offset + 256)); 
py = rndf (2*(fabs(yl_scale)*x - height/2. + 
yl.offset + 240)); 

magt = rndf (255+80*logl0( (float) (radar_data[i] [3] ))) ; 

XSetForeground(display ,gcl .colormap [magt] ) ; 

XFillRectangle(di8play ,XtWindow(winwidget4) , 
gel ,px,py ,2*width,2*height) ; 

> 

if ( ! isar.f lag) 

draw_arrow( white ,rin_angle+xy .angle) ; 

> 

if( image == im4 ) 

{ 

for(i=0 ; i<num_pnts ; i++) 

{ 

y = radar_data[i] [1] ; 
z = radar. data [i] [2] ; 
rotate.point(*x,fty.yz. angle) ; 
px = rndf (2*(fabs(y2. scale) *y - width/2. + 
y2_offset + 256)); 

py = rndf (2*(-f abs(z.scale)*z - height/2. + 
z.offset + 240)); 

magt = rndf (255+80*logl0( (float) (radar_data[i] [3]))); 

XSetForeground (display , gel .colormap [magt] ) ; 

XFillRectangle (display ,XtWindow(winwidget4) , 
gel .px.py, 2*width,2*height) ; 

> 

> 

> 

/ft****************************************************************************/ 

ClearRadarData ( ) 

{ 

int i.j; 
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1 or (i=0 ; KIMAGE.PHTS ; i++) 
for(j=0; j<6; j++) 
radar _data[i] [j] =0; 
num_pnt b = 0; 

> 

/********************* ********************************************************/ 
SubEadar Image ( image ) 

Xlmage *image; 

{ 

if (image == iml) 

i 

XClear Area (display ,XtWindow (winwidgetl ) , 0 ,0 ,0 ,0 , False) ; 

> 

if (image == im2) 

{ 

XClear Area (display ,XtWindow(winwidget 2) ,0 ,0 ,0 ,0 , False) ; 

> 

if ((image == im3) I (image == im4)) 

XClearArea (display ,XtWindow(winwidget4) ,0,0,0,0,False) ; 

> 

> 

/******************************************************************* ********* 9 f 

Addlsarlmage (video f isar) 
char *video, *isar; 

< 


int x ,y ,xs ,ys ; 

unsigned char dat; 

unsigned long *colormap; 

int x2,y2 ,x21 t y21 ; 

if (mono) colormap = monocols; 

else colormap = cols; 

xs = ys = 512; 

if (!scral_flag kk !scrn2.flag) /* in single screen mode */ 
WriteMes sage ("Please wait, this will take awhile... 1 ’ f 
XtWindow(winwidgetl) , 5 ,605 , white) ; 


else 


VriteMessage("Please wait, this will take awhile... M v 
XtVindow (winwidget4) ,300, 1020, white) ; 

for( y=0; y<ys; y++ ) 
for(x=0; x<xs; x++) 

{ 

if(+(isar + x ♦ 512*y)) 
dat = *(isar + x + 512*y); 

else 

dat a * (video + x + 512*y); 

XPut Pixel ( iml , x ,y , colormap [dat] ) ; 

> 

/♦ low, do big image */ 

f or(y=0;y<ys ;y++) /* loop thru raw data */ 

{ 
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y 2 = 2*y; /* for speed ♦/ 
y2l = y2+i; 

for(x=0;x<xs;x++) /* dup. pixels into big image */ 

if(*(isar + x + 512*y)) 

dat = *(isar + x + 512*y); 

else 

dat = *(video + x + 512*y) ; 
x2 = 2*x ; 
x21 = x2+l ; 

XPutPixel(im3,x2,y2,colormap [dat] ) ; 

XPutPixel ( im3 , x2 1 , y2 , colormap [dat] ) ; 

XPutPixel(im3 ,x2 ,y21 ,colormap[dat] ) ; 

XPutPixel ( im3, x2 1 ,y2i .colormap [dat] ) ; 

> 

> 

/* 


* Now. need to display appropriate image: iml or im3 

* and erase message. 

*/ 


if ( ! scrnl_f lag Aft !scrn2_flag) 


XPut Image (display .XtWindow(winwidgetl) ,gcl , iml ,0,0,0 ,0 , 
xs.ys) ; 

WriteMessageC’Please wait, this will take awhile 
XtWindow(winwidgetl) ,5,505 , black) 


> 


H 


else 

{ 

XPut Image (display ,Xt Window (winwidget4) ,gcl , im3,0 ,0,0 ,0 , 

2*xs ,2*ys) ; 

WriteMessageC'Please wait, this will take awhile...", 
XtWindow(winwidget4) ,300, 1020, black) ; 

> 

> 

/*****************************************************************************/ 
draw^arrow (color .angle) 
unsigned long color; 
float angle; 

{ 

int re.rp, /* radius of end and head of arrow */ 

ra, /* length of arrow head */ 

xe.ye, /* coords, of end of arrow */ 
xp.yp, /* coords of point of arrow */ 

xl,x2, /* x coords of arrow head lines */ 

yl,y2; /* y coords of arrow head lines */ 

float phi; /* angle of arrow head lines with shaft */ 
re = 239; 
rp = 199; 
ra = 8; 
phi = PI/6.; 


in 


xe = rndf(255 - re * cos (angle)); 

ye = rndf(239 + re * sin(angle) ) ; 

xp = mdf(255 - rp * cos (angle)); 

yp = mdf (239 + rp * sin(angle)); 

xl = rndf(xp - ra * cos(angle - phi)); 

yl = rndf(yp + ra * sin(angle - phi)); 

x2 = mdf(xp - ra * cos(angle + phi)); 

y2 = mdf(yp + ra * sin(angle + phi)); 

if (( fscrnl^flag) ft* ( ! scrn2_f lag) ) /* mult, screens */ 

{ 

XSetForeground (display , gel , color) ; 

XDrawLine (display .XtWindow (winwidgetl) , 
gel ,xe,ye,xp,yp) ; 

XDrawLine (display , XtWindow ( winwidget 1 ) , 
gel ,xl,yl ,xp # yp) ; 

XDrawLine (display .XtWindow(winwidgetl) , 
gel .x2,y2 ,xp,yp) ; 

XDrawLine (display .XtWindow(winwidgetl) , 
gel »xl ,yl ,x2»y2) ; 

> 

if (scml_Xlag) /+ single screen on top view */ 

{ 

XSetForeground (display , gel .color) ; 

XDrawLine(XtDisplay (winwidget4) ,XtWindow(winwidget4) , 
gc 1 > 2*xe j 2*y e . 2*xp . 2*yp) ; 

XDrawLine(XtDisplay(winwidget4) ,XtWindow(winwidget4) , 
gel ,2*xl,2*yl ,2*xp,2*yp) ; 

XDrawLine(XtDisplay(winwidget4) , XtWindow (winwidget4) , 
gel ,2*x2,2*y2,2*xp,2*yp) ; 

XDrawLine (XtDisplay(winwidget4) ,XtWindow(winwidget4) f 
gcl,2*xl,2*yl ,2*x2,2*y2) ; 

> 

> 

/******************************************** ****************** *******iM *****♦/ 

single_screen( image) 

Xlmage ♦image; 

{ 

XtPopdown (shell 1) ; 

XtPopdown(shell2) ; 

XtPopdown (shell3) ; 

XtPopup(shell4 .XtGrabNone) ; 

XClearWindow(XtDisplay(winwidget4) , XtWindow(winwidget4) ) ; 

XPut Image (XtDisplay (winwidget4) , XtWindow (winwidget4) ,gcl , image , 0 , 0 , 0 , 0 , 

2*xsize ,2*ysize) ; 

XFlush(di8play) ; 

> 

/* *** ** *** ********** **********************************************************/ 
void multi_screen() 

XtPopdown(shell4) ; 

XtPopup( shell 1 ,XtGrabNone) ; 
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XtPopup(shell2 ,XtGrabNone) ; 

XtPopup(shell3 ,XtGrabNone) ; 

XFlush(display) ; 

> 

/********* ******************************************** ************************/ 
/* FUNCTIONS FOR RUBBER BAND LINES , ETC. */ 

/*****************************************************************************/ 
create_rubber_gc(w, data) 

Widget w; 

rubber_band_data +data; 

{ 

XGCValues values; 

Arg arg [2] ; 

XtSetArg(arg[0] , XtNbacfc ground , ft values .foreground) ; 

XtSetArg(arg[l] , XtNforeground, ftvalues .background) ; 

XtGetValues(w , arg ,2); 

/* 

* set the FG to the XOR of the FG and BG . This creates inverse 

* video. 

*/ 

values .foreground = 250; 

values . line_style = LineOnOf fDash; 

values .function = GXxor; 

data->gc = XtGetGC(w, GCForeground I GCBackground I 
GCFunction I GCLineStyle, ftvalues); 

} 

/*****************************************************************************/ 
void start_rubber_band(w, data, event) 

Widget w; 

rubber _band_dat a *data; 

XEvent + event; 

{ 

data->last_x = data->start_x = event->xbutton.x ; 
data->last_y = data->start_y = event->xbutton.y ; 

XDrawLine(XtDisplay (w) , XtWindow(w) , 
data->gc, data->start_x , 

data->8tart_y ,data->last_x ,data->last_y) ; 

> 

/*****************************************************************************/ 
void track_rubber_band(w , data, event) 

Widget w; 

rubber_band_data *data; 

XEvent * event; 

{ 

XDrawLine(XtDisplay (w) , XtWindow(w), data->gc, 
data->start_x, data->start_y , 
data->last_x, data->last_y) ; 
data->last_x = event->xbutton.x; 
data->last_y = event->xbutton.y ; 

XDrawLine(XtDisplay(w) , XtWindow(w), data->gc, 
data->start_x, data->start_y , 
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data->last_x, data->last_y) ; 


> 

/******** *****^***^************* *********************************** **********/ 
void end_rubber_band(w , data, event) 

Widget w; 

rubber _band.dat a *data; 

XEvent * event; 

{ 

Arg argCl] ; 

int delta_x, delta_y; 

double sum; 

XDrawLine(XtDisplay(w) , XtWindow(w), data->gc, 
data->start_x, data->start_y, 
data->last_x, data->last_y) ; 
data->last_x = event->xbutton.x; 
data->last_y = event->xbutton.y ; 

XFlush(XtDisplay(winwidget4)) ; 
delta_x = data->last_x - data->start_x ; 
delta_y = data->last_y - data->start_y ; 

sum = square ( (double)delta_x) + square( (double)delta_y) ; 

/* now resensitize the buttons in the widget, except the ’’done" 

* button , unless really done ! 

*/ 

XtSetArg(arg[0] , XtNsensitive, True); 
if (scrnl.f lag) 

{ 

if (horizontal_f lag) 

x_dim = radf (sqrt(sum)) ; 

> 

else 

{ 

yi_dim = rndf (sqrt(sum)) ; 

> 

XtSetValues (w_recl .widget 1 ,arg, 1) ; 

XtSetValues(w_recl . widget2 ,arg, 1) ; 

XtSetValues (w_recl . widget3 , arg , 1) ; 

XtSetValues (w_recl . widget4 , arg , 1) ; 

XtSetValues (w_rec i . widgetS , arg , 1 ) ; 

> 

else 

{ 

if (horizontal_f lag) 

{ 

y2_dim = rndf (sqrt( sum)) ; 

> 

else 

z_dim = rndf (sqrt( sum)) ; 

> 

XtSetValues (w_rec2 . widget 1 , arg , 1) ; 
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Xt Set Values (w_rec2 . widget2 ,arg, 1) ; 

XtSetValues (w_rec2 . w idget3 , arg , 1) ; 

XtSetValues (w_rec2 . widget4 , arg , 1) ; 

XtSetValues (w_rec2 . widgetB , arg , 1) ; 

> 

> 

/************************************+****************************************/ 

/* 

* functions to draw cross hairs for aligning the 

* radar image with the video image. 

* 

* 

* start full screen cursor from button callback 
*/ 

void init_cursor(w ,data) 

Widget w; 

cursor_data *data; 

{ 

char xmessage[40] , ymessage [40] ; 
data->last_x = 511; 
data->last_y = 479; 

/* force cursor to center of image */ 

XWarpPointer (XtDi splay (winwidget4) .None ,XtWindow(winwidget4) , 
0,0,0,0,data->last_x,data->last_y) ; 

/* draw initial cursor */ 

XDrawLine(XtDisplay(winwidget4) ,XtWindow(winwidget4) ,rb_data.gc,0, 
data->last_y , 1023 ,data->last_y ) ; 

XDrawLine(XtDisplay(winwidget4) ,XtWindow(winwidget4) ,rb_data.gc , 
data->last _x ,0 , data->last_x , 959) ; 

sprintf (ymessage , " Y OFFSET = ’/.+5d " , (data->last_x - 611)); 
sprinti (xmessage , "X OFFSET = V.+Bd ",(479 - data->last_y)) ; 

Wri t eMes s age ( xme s s age ,Xt Window (w inwidget 4) ,600, 1020 .white) ; 
WriteMessage(ymessage,XtWindow(winwidget4) ,800, 1020, white) ; 

} 

/* 

* track cursor within the window 
*/ 

void track_cursor(w, data, event) 

Widget w; 

cursor_data *data; 

XEvent *event; 

int i,x,y; 

char xmessage [40] , ymessage [40] ; 

/* erase previous lines */ 

XDrawLine(XtDisplay (w) f XtWindow(w) ,rb_data .gc ,0 , 
data->last_y , 1023 ,data->last_y) ; 

XDrawLine (XtDisplay (w) ,XtWindow(w) ,rb_data.gc, 
data->last_x , 0 ,data->last_x , 959) ; 
data->last_x = event->xmotion.x; 
data->last_y = event->xmotion .y ; 
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XDrawLine(XtDisplay (w) ,XtWindow(w) ,rb_data . gc ,0 , 
data->last_y , 1023 ,data->last_y) ; 

XDrawLine(XtDisplay (w) ,XtWindow(w) ,rb_data.gc, 
data->last_x ,0 ,data->last_x,959) ; 

sprintf (ymessage , M Y OFFSET = '/,+5d M , (data->last_x - 611)); 
sprintf (xmessage , "X OFFSET = */,+5d M ,(479 - data->last_y)) ; 
WriteMessage(xmessage ,XtWindow(winwidget4) ,600 , 1020, white) ; 
WriteMessage(ymessage,XtWindow(winwidget4) ,800, 1020,white) ; 

> 

/♦ 

* process button event at the end of cursor motion, and set Bhifts 
*/ 

void end_cursor(w , data, event) 

Widget w; 

cursor.data ♦data; 

XEvent * event; 

{ 

Time time; 

char xmessage [40] , ymessage [40] ; 

XDrawLine (XtDi splay (w) ,XtWindow(w) ,rb_data.gc ,0 , 
data->last_y , 1023 ,data->last_y) ; 

XDrawLine(XtDisplay (w) ,XtWindow(w) ,rb_data.gc, 
data->last_x ,0 ,data->last_x , 959) ; 
data->last_x = event->xmotion .x; 
data->last_y = event->xmotion.y ; 

/* 

* remove event handlers and ungrb pointer 
*/ 

XtRemoveEventHandler (winwidget4 , PointerMot ionMask , 

False, track_cursor ,ftcur_data) ; 

XtRemoveEventHandler (winwidget4,ButtonPressMask , 

False ,end_ curs or, ftcur ..data) ; 

XUngrabPointer(XtDisplay(winwidget4) ,time) ; 

/* 

* clear message area 
*/ 

XClearArea(XtDisplay (winwidget4) ,XtWindow(winwidget4) , 

0,960, 0,63, False) ; 

/♦ 

+ set offset values 
*/ 

if (scrnl_flag) 

{ 

x_offset = rndf ( (data->last_x - 511) /2 - ) ; 
yl_offset = rndf ( (data->last_y - 479)/2.); 

SubRadarImage(im3) ; 

XPut Image (display ,XtWindow (winwidget4) ,gcl , im3 , 0 , 0 , 0 , 0 , 
2*xsize,2*ysize) ; 

AddRadarImage(im3) ; 

> 

if (scrn2_f lag) 
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y2_offset = rndf ( (data->last_x - 511)/2.); 
z_offset = rndf ( (data- > lastly - 479)/2.); 

SubRadarImage(im4) ; 

XPut Image (display , XtWindow ( winwidget4 ) , gel , im4 , 0 , 0 , 0 , 0 , 

2*xsize,2*ysize) ; 

AddRadarImage(i»4) ; 

> 

> 

/************+****************************************************************/ 
void init_line(w,data) 

Widget w; 
line_data *data; 

{ 

char message [40]; 
data->xl - 5ii; 
data->x2 =511; 
data->yl = 0; 
data->y2 = 960; 

XWarpPointer (XtDisplay (winwidget4) , None , XtWindow (winwidget4) , 

0,0,0,0,511,240); 

/* 

* draw initial line 
*/ 

XDrawLine(XtDisplay(winwidget4) ,XtWindow(winwidget4) ,rb_data.gc , 
data->xl ,data->yl ,data->x2 ,data->y2) ; 

/* 

* initial message 
*/ 

sprintf (message , "ANGLE = y,+4d n ,0); 

WriteMessage(message ,XtWindow(winwidget4) ,500, 1020, white) ; 

> 

void track_line(w , data, event) 

Widget w; 
line_data *data; 

XEvent * event; 

{ 

char message [40]; 
double deltax, deltay; 
double angle; 

/* 

* erase previous line 
*/ 

XDrawLine(XtDisplay(w) ,XtWindow(w) ,rb_data.gc , 
data->xl ,data->yl ,data->x2 ,data->y2) ; 
deltax = (double) (event->xmot ion. x - 511 ); 
deltay = (double) ( 479 - event->xmotion . y ); 
angle = atan2 (-deltax, deltay) ; 
data->xl = rndf (511 * (1. - sin(angle) ) ) ; 

data->x2 = rndf(511 * (1. + sin(angle) ) ) ; 

data->yl = rndf (479 * (1. - cos(angle) ) ) ; 
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data->y2 = rndf(479 * (1. + cob (angle) )) ; 

/* 

* draw new line 
*/ 

XDrawLine(XtDisplay(w) ,XtWindow(w) ,rb_data.gc , 

data->xl ,data->yl ,data->x2 ,data->y2) ; 

sprintf (message," ANGLE = '/.+5d " ,rndf (-angle* 180 ./PI) ) ; 

WriteMessage(message,XtWindow(winwidget4) ,500, 1020, white) ; 

> 

void end_line(w .data, event) 

Vidget w; 
line_data *data; 

XEvent * event; 

double deltax, deltay; 
double angle; 

Time time; 

/* 

* erase previous line 
*/ 

XDrawLine(XtDisplay(w) ,XtWindow(w) ,rb_data.gc, 
data->xl ,data->yl ,data->x2 ,data->y2) ; 
deltax = (double) (event->xmot ion. x - 511); 
deltay = (double) (479 - event->xmotion .y ); 
angle = atan2(-deltax, deltay) ; 

/♦ 

* remove event handlers and ungrab pointer 
*/ 

XtRemoveEv entHandler (winwidget4, Point erMotionMask , 

False, track_line ,ftl_data) ; 

XtRemoveEventHandler(winwidget4,ButtonPressMask , 

False ,end_line ,ftl_data) ; 

XUngrabPointer(XtDisplay (winwidget4) ,time) ; 

/* 

* clear message area 
*/ 

XClearArea(XtDisplay(winwidget4) ,XtWindow(winwidget4) , 

0 , 960 , 0 , 63 .False) ; 

/* 

* set rotation angles and redraw images 
*/ 

if (scrnl_flag) 

xy_angle = angle; 

SubRadarImage(im3) ; 

XPutlmage (display .XtWindow (winwidget4) ,gcl , im3 , 0 , 0 , 0 , 0 , 
2*xsize,2*ysize) ; 

AddRadarImage(im3) ; 

> 

if (scm2_flag) 
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yz_angl e = angle; 

SubRadarImage(im4) ; 

XPut Image (display , XtWindow( winwidget4) ,gcl , im4 , 0 ,0 p 0 ,0 , 

2*xsize ,2*ysize) ; 

AddRadarImage(im4) ; 

> 

> 

B.2.4 Module xframe.c 

/* 

* This is a file of routines for talking to the FG100 video board 
*/ 

#include M radar.h n /* includes all X includes */ 

#include "frame. h" 

/* 

* Externals 
*/ 

extern void clear.array () ; 
extern char *vidrayl, *vidray2; 
extern int Bcrnl_flag, scm2_flag; 
extern int xsize,ysize; 

extern Widget winwidgetl P winwidget2 ,winwidget4 p top2 ; 

extern Xlmage *iml , *im2 , *im3 t *im4 ; 

extern Display *display; 

extern Colormap cmap; 

extern GC gel; 

extern XFontStruct *font , *f ont2; 

extern int fore, back; 

extern Boolean vidl_flag, vid2_f lag; 

/* 

* globals defined in this module 

*/ 

unsigned short *reg_addr; / * word pointer to reg[0] */ 

unsigned short *mem_addr; /* byte pointer to mem[0] */ 

int 8hmid_reg, shmid.mem; / * shared memory id’s */ 

/******************* ********** ********************* *** **************** *******/ 
/* 

* function to initialize shared memory and ITI board 
*/ 

ITI_init () 

{ 

int size, shmflag; 

unsigned int p_addr f p_base p reg_p_space, mem_p_space; 
unsigned short *v_base; 

’unsigned char *mem_base; 
unsigned short temp; 
char *shmaddr; 
extern int errno; 
extern char *sys_errlist [] ; 
key_t key; 
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int i; 

char *shmat(); 

unsigned short read_register() ; 
signal(SIGBUS,SIG_IGN) ; 

/* set up shared address space for control registers */ 
if ((shmid_reg = s lunge t (REG JCEY , 

REG .REGION. SIZE , 

SHHFLAG , 

REG.PHYS.ADDR, 

REG.PHYS.SPACE) ) < 0) 

{ 

f pr intf ( stderr , 

"Error allocating shared memory for control registers\n") ; 
fprintf (stderr ,"shmget : errno: , /,d, , / # s\n" , 
errno f sys_errlist [errno] ) ; 
exit(i) ; 

> 

if ((v.base = 

(unsigned short *) shmat (shmid.reg, 0, 0)) < 0) 

{ 

fprintf ( stderr , 

"Error allocating memory for control registers \n") ; 
fprintf (stderr, "shmat: V.sXn", sys_errlist [errno] ) ; 
exit ( 1) ; 

> 

reg.addr = v.base + (OxlOOO/sizeof (temp) ) ; 

/* now S et up shared memory for video memory */ 
if ((shmid.mem - shmget( MEM JCEY, 

MEM .REGION. SIZE, 

SHMFLAG , 

MEM.PRYS.ADDR, 

MEM.PHYS.SPACE) ) < 0) 

{ 

fprintf (stderr, 

"Error allocating shared memory for video memory\n M ); 
fprintf (stderr ,"shmget : '/,d — */,s\n" , 
errno ,sys_errlist [errno] ) ; 
exit (1) ; 

> 

if ((mem.addr = 

(unsigned short *) shmat (shmid.mem, 0, 0)) < 0) 

{ 

fprintf (stderr, 

"Error allocating memory for video memory\n"); 
fprintf (stderr, "shmat: */,d — '/.sNn", 
errno, sys.errlist [errno] ) ; 
exit(l) ; 

> 

/* 

* Actually do something with device here 

*/ 
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/* do a Boft reset and set up default controls */ 
write_register(LUT_CONTROL .Oxffff ) ; /* reset board */ 
write_register(LUT_CONTROL, 0x3000) ; /* select board */ 
write_register(Z00M f 0) ; /* zoom ft regmux = 0 */ 
write_register(HEM0RY_C0NTR0L, 0x4040) ; /* Z-mode ft pixel buf+/ 
write_register(PR0CESS0R_MASK,0) ; /* no protection */ 
write.register(VIDE0.MASK,0) ; /* no protection */ 
write_register(PIXEL_BUFFER,0) ; /* clear pix buffer reg. */ 
write.register(X.P0INTER,0) j /* set x-pointer */ 
write.register(Y.P0INTER,0) ; /* set y-pointer */ 
write_register(P0INTER_C0NTR0L,0) ; /* no pointers */ 
write_register(CPU_ADR_C0NTR0L, 0x0407) ; /* enable fb add’s. */ 
write.register(X.SPIN,0xl0) ; /* try this, or iOh */ 
write_register(Y_SPIN,0) j /* no y-spin */ 
write_register(PAN ,0) ; /* no pan */ 
write_register(SCR0LL,0) ; /* no scroll */ 

wr it e_register(STATUS_C0NTR0L, 0x3040) ; 

ITI.lutO; /* set up LUT’s */ 

> 

/* 

* Function to initialize the LUT’s 

+/ 

ITI.lutO 

{ 

unsigned short i; 

write.register (LUT.C0NTR0L, 0x2000) ; /* select LUT memory */ 
f or ( i=0 ; i<256 ; i++) 

i 

mem.addr [RED.BASE/2 + i] = i; 
mem.addr [BLUE.BASE/2 + i] = i; 
mem.addr [GREEN.BASE/2 + i] = i; 

> 

for(i=0 ; i<256 ; i++) 

mem_addr[ILUT_BASE/2 + i] = i; 

> 

wr it e_register(LUT .CONTROL, 0x3000) ; /* Belect video mem. */ 

> 

/* 

* Function to do a single frame grab and display it in the correct 

* window. NOTE : This function deletes any current radar image. 

*/ 

ITI.frame(cam) 
unsigned char cam; 

{ 

/* do an acquisition */ 
unsigned short data; 
int size,!; 
size = 512*480; 
wait.vbO ; 

data = (unsigned short )readjregister(STATUS CONTROL) ; 
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if(!cam) data s data ft 0x0040; 
if (cam) data = data ft 0x0048; 
writ e_register (STATUS_CONTR0L, data) ; 

while(data=( (unsigned short)read_register (STATUS_C0HTR0L)*0x3000) ) ; 
if(!cam) data = data I 0x2040; 
if (cam) data = data I 0x2048; 
write_register(STATUS_CONTROL,data) ; 

while (data=( (unsigned short )read_register(STATUS_C0NTR0L)ft0x3000) ) ; 
sleep(l) ; 

if ( ■scml_flag ftt ! scrn2__f lag) /* in multiscreen mode */ 

{ 

if(!cam) /* overhead camera */ 

{ 

for(i=0; i<size ; i++) 

vidraylEi] = (unsigned char) ( (mem_addr [i] ft 0x00ff)/2); 
vidl_flag = True; 

/* this will take some time so tell ’em */ 

WriteMessage("Please wait, this will take awhile...", 
XtWindow(winwidgetl) ,5 ,505 ,back) ; 

Great elmage ( vidray 1 ,iml ,xsize .ysize) ; 

Createlmage(vidrayl , im3 , 2*xsize , 2*ysize) ; 

XPutImage(XtDisplay (winwidgetl) ,XtWindow(winwidgetl) , 
gel ,imi ,0,0 ,0,0 ,xsize ,ysize) ; 

/* erase message by writing same one in black */ 

WriteMessage("Please wait, this will take awhile...", 
XtWindow(winwidgetl) ,5, 505, fore) ; 

> 

else 

{ 

f or (i=0 ; Ksize ; i++) 

vidray2[i] = (unsigned char) ( (mem_addr [i] ft 0x00ff)/2); 
vid2_flag = True; 

WriteMessage("Please wait, this will take awhile... ", 
XtWindow(winwidget2) ,5, 505, back) j 
Createlmage(vidray2,im2 ,xsize,ysize) ; 

Createlmage ( vidray2 , im4 , 2*xsize , 2*ysize) ; 
XPutImage(XtDisplay(winwidget2) ,XtWindow(winwidget2) , 
gel ,im2,0 ,0,0,0, xsize,ysize) ; 

WriteMessage("Please wait, this will take awhile...", 
XtWindow(winwidget2) ,5,505 , fore) ; 

> 

> 

if (scml_f lag) 

< . 

WriteMessage ("Please wait, this will take awhile...", 
XtWindow(winwidget4) ,300,1020 .back) ; 
if ( team) 

{ 

f or(i=0; Ksize ; i++) 

vidraylEi] = (unsigned char) ((mem.addr [i] ft 0x00ff)/2); 
vidl_flag = True; 
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Createlmage(vidrayl ,iml , xsize ,ysize) ; 

Createlmage (vidr ay 1 , im3 ,2*xsize,2*ysize) ; 

XPutImage(XtDisplay (winwidget4) ,XtWindow(winwidget4) , 
gel ,im3 ,0,0,0 ,0 ,2*xsize ,2*ysize) ; 

> 

else 

{ 

f or (i=0 j i<size ; i++) 

vidray2[i] = (unsigned char) ((mem_addr [i] k 0x00ff)/2); 
vid2_f lag = True; 

/* create the images but don’t display it */ 

Createlmage(vidray2 , im2 , xsize ,ysize) ; 
Createlmage(vidray2,im4,2*xsize,2*ysize) ; 

> 

WriteMes sage ("Please wait, this will take awhile...", 
XtWindow(winwidget4) ,300, 1020, fore) ; 

> 

if (scra2_flag) 

i 

WriteMes sage ("Please wait, this will take awhile...", 
XtWindow(winwidget4) ,300 , 1020 .back) ; 
if ( !cam) 

{ 

f or(i=0 ; i<size ; i++) 

vidrayl[i] = (unsigned char) ( (mem_addr [i] 4 0x00ff)/2); 
vidl_flag = True; 

/* create the images but don’t display */ 

Createlmage(vidrayl ,iml , xsize, ysize) ; 

Createlmage(vidrayl ,im3,2*xsize ,2*ysize) ; 

> 

else 

i 

for (i=0 ; i<size ; i++) 

vidray2[i] = (unsigned char) ((mem_addr [i] k 0x00ff)/2); 
vid2_f lag = True; 

Createlmage (vidray2 , im2 , xsize , ysize) ; 

Createlmage ( vidray2 , im4 , 2+xsize ,2*ysize) ; 

XPut Image (XtDisplay(winwidget4) ,XtWindow(winwidget4) , 
gel ,im4 ,0,0, 0,0 ,2*xsize,2*y size) ; 

} 

Vr it eMessage( "Please wait, this will take awhile...", 
XtWindow(winwidget4) ,300, 1020, fore) ; 

> 

> 

/* 

* function to put in continuous acquisition mode 

*/ 

ITI_cont() 

{ 

unsigned short data; 

while(data=( (unsigned short)read_register(STATUS_C0NTR0L)ft0x3000) ) ; 
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data = read_register(STATUS_CONTROL) ; 
data = data | 0x3040; 
write.register (STATUS_C0NTR0L,data) ; 

> 

/* 

* function to switch cameras 
*/ 

ITI .camera (cam) 
unsigned char cam; 

{ 

unsigned short data; 
data = read.register (STATUS.C0NTR0L) ; 
data = data ft OxOfff; 
write_register(STATUS_CONTROL,data) ; 

while(data=( (unsigned short )read_register(STATUS_C0NTR0L)ft0x3000) ) 
if (cam) 

data = read_register(STATUS_CONTROL) ; 
data = data ft 0xff40; 
data = data I 0x0008; 
write.register (STATUS.C0NTR0L, data) ; 

> 

else 

{ 

data = read.register (STATUS.C0NTR0L) ; 

data = data ft 0xff40; 

wr it e.regis ter (STATUS .CONTROL, data) ; 

> 

> 

/* 

* Function to release shared memory mapping for ITI board 
*/ 

ITI_close( ) 

{ 

/* 

* Now that we 7 re done playing with the device, free the region. 

>/ 

shmdt (0) ; 
shmdt (0) ; 

> 

/* 

* Write a FG100 control register 
*/ 

write.register(r .data) 
unsigned short r,data; 

{ 

reg.addr [r/2] = data; 

> 

/* 

* Read a FGiOO control register 
*/ 
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unsigned short read_register(r) 
unsigned short r; 

unsigned short data; 

data = (unsigned short ) reg.addr [r/2] ; 
return data; 

> 

/* 

* Wait for a vertical blanking period 

*/ 

wait_vb() 

{ 

/* wait out pending vertical blank */ 

while( ! (read_register(STATUS_C0NTR0L)ft0x0400) ) ; 

/* wait for next vertical blank */ 

while (read_register (STATUS _C0NTR0L)A0x0400) ; 

/+ wait it out */ 

while ( ! (read_register (STATUS_CONTROL) 40x0400) ) ; 

> 

B.2.5 Module xcom.c 

/* 

* 

* XCOM.C : 

* 

* This is a file of functions for handling data transfer between 

* XRADAR and TTT. 

* 

* 

*/ 

#include "radar. h" /+ includes all X includes */ 
extern Xlmage *imi ,*im2 f *im3,*im4; 
extern Display ^display; 
extern Colormap cmap; 
extern GC gcl,gc2; 
extern Widget toplevel, top2, 
shelll, shell2, 
shell3, shell4, 
winwidgetl , winwidget2 f 
winwidget3 f winwidget4, 
buttonlB , exit.message ; 
extern int gxposl, gyposl, 

gxpos2, gypos2, 
gxpos3, gypos3, 
gxpos4 , gypos4, 
xsize, ysize, 
screen; 

extern unsigned int red , white , blue ,black; 
extern int scrniJE lag,scrn2_f lag; 
extern int nuin_pnts; 
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extern float in_angle; 

extern float radar.data [IMAGE.PNTS] [6] ; 

/************ *********** ** ******************* ********* ** ********************/ 
/* 

* Callback for radar imaging button 

* 

* NOTICE : This function has its own event processing loop for handling 

* events while performing continuous radar image display. Only two 

* events are recognized by this handler : 

* 

* 1) Property change events on the property being used to 

* pass data from TTT to XRADAR . 

* 2) A button press to exit the event handling loop and 

* exit this callback routine. 

* 

* This function also mixes Xlib calls with Xt Intrinsics and 

* Xaw widgets. Care is needed when attempting to modify this 

* function. 

*/ 

void image_loop(w, call_data, client_data) 

Widget w; 

caddr_t call_data, client_data; 

{ 

Window root, window; 

XEvent event ; 
int i,x,y; 

if ( ! scml_flag ftft !scrn2_flag) 

{ 

window = XtWindow(winwidget2) ; 
x = 5; 
y = 505; 

WriteMessageC'To exit this function, click on RTDP button again.”, 
window ,x ,y , white) ; 

> 

else 

{ 

window = XtWindow(winwidget4) ; 
x = 400; 

y = 1020; 

WriteMessageC'To exit this function, click on RTDP button again.", 
window,x,y, white) ; 

> 

root = Def aultRootWindow(XtDisplay (toplevel) ) ; 

RDR_DATA = XInternAt ora (XtDi splay (toplevel) , "Data" ,0) ; 

RDR_DATA_TYPE = XInternAtom (XtDisplay (toplevel ), "Data Type",0); 

/* 

* write message to tell user how to exit this function 

♦/ 

XSelectlnput (XtDisplay (toplevel) , root , 

PropertyChangeMask) ; 

while(TRUE) /* loop until user exits via button press */ 
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{ 

XtNextEvent(ftevent) ; /* get next event */ 

switch(event .type) /* check event type */ 

i 

case PropertyNotif y : 
if (event .xproperty. window == root && 
event .xproperty .atom == RDRJ5ATA) 

printf("Got the data !\n M ); 
display__data() ; /* display new image */ 

> 

else 

XtDispatchEvent (ftevent) ; 
break ; 

case ButtonPress : 

if (event . xbutt on. window == Xttfindow(buttonl5)) 

XDeleteProperty(XtDisplay(toplevel) , 
root, RDR.DATA) ; 

XDeleteProperty (XtDisplay (toplevel) , 
root , RDR_DATA_TYPE) ; 

/* erase message */ 

WriteMessage( M To exit this function, clickX 
on RTDP button again.", window, 
x,y, black) ; 
return; 

> 

default : XtDispatchEvent(fcevent) ; 

> 

> 

> 

display_data() 

int i,j, type, format, nitems , left; 
char *retdata; 
float *fretdata; 

XGetWindowProperty (XtDisplay (toplevel) , 
DefaultRootWindow(XtDisplay (toplevel)) , 

RDR_DATA ,0,4096, FALSE , 

RDR _DATA_TYPE , ktype, ^format, 
knitems, ftleft, ftretdata) ; 
if (type == RDR_DATA_TYPE) 

{ 

fretdata = retdata; 
num.pnts = (int) (*fretdata) ; 
in_angle = *(fretdata+l) ; 
f or(i=0; i<num_pnts ; i++) 
for( j=0; j<6 ; j++) 

{ 

radar _dat a[i] [j] = *(fretdata+6*(i+l}+j ) ; 

> 
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if ( !scrnl_flag ftft ! scrn2_f lag) 

{ 

SubRadarlmage(iml) ; /* clear screens */ 
SubRadarImage(im2) ; 

XPut Image (display , XtWindow ( winwidget 1) , gc 1 , iml , 0 , 0 ,0 , 0 , 
xsize.ysize) ; / * put video image back */ 

AddRadarlmage(iml) ; /* add new radar image */ 

XPut Image (display , XtWindow (winwidget2) ,gcl , im2, 0 ,0 ,0,0, 
xsize ,ysize) ; 

AddRadarImage(im2) ; 

> 

if (scrnl_f lag) 

{ 

SubRadarImage(im3) ; 

XPut Image (display , Xt Window (winwidget4) , gc 1 , im3 , 0 , 0 ,0 , 0 , 
2*xsize ,2*ysize) ; 

AddRadarImage(im3) ; 

> 

if (scrn2_flag) 

{ 

SubRadarImage(im4) ; 

XPut Image (display , XtWindow (winwidget 4) ,gcl , im4, 0,0,0 ,0, 
2*xsize ,2*ysize) ; 

AddRadarImage(im4) ; 

> 

> 

> 

B.2.6 Module xutil.c 

/* 

* util.c — This file contains support routines for the xrdr 

* main program. 

*/ 

#include "radar. h M /* includes all X includes */ 

extern Xlmage *imi, *im2, *im3, *im4; 

extern Display ^display; 

extern Colormap cmap; 

extern GC gel; 

extern XFontStruct__*font , *font2; 
extern unsigned long colsH ; 
extern unsigned int fore, back; 
extern Widget toplevel, top2, 
shelll, shell2, 
shell3, shell4, 
winwidget 1 ,winwidget2, 
winwidget3 ,winwidget4 j 
popfilel, popfile2, 
error.popup, msg.popup; 

extern float x.scale, yl_scale, y2_scale, z_scale; . . 
extern int x_offset, yl_offset, y2_offset, z.offset; 
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extern int horizontal.! lag, scrnl.f lag , scrn2.f lag; 

extern int xsize,ysize; 

extern float radar_data[IMAGE.PRTS] [6] ; 

extern int num.pnts; /* number of points in current radar image */ 

extern float in.angle; 

extern char *vidrayl, *vidray2, *Imagel, *Image2; 
extern char *BigImagel, *BigImage2; 
void Null.funcO; 
double square (); 

static XtActionsRec actionsTable □ = { 

{ M Null.func H t Null_func}, >; 

static char def aultTranslations [] = M Ctrl<Key>J; Rull_func() \n\ 

Ctrl<Key>0: Null.funcO \n\ 

Ctrl<Key>M: Null.funcO \n\ 

<Key >Return : Null.f unc ()"; 

Widget error .button; /* global widgets in this module */ 

FILE *video_fp, *radar_fp; 

/************************************************************************ »**♦*/ 
/* 

* a null function which does nothing but which is needed for intercepting 

* <RET> typed in text widgets, ie) do nothing if a <RET> is typed. 

*/ 

void Null.funcO 

{ 

> 

/***************************************************♦* **************+*********/ 
/* 

* a math round function 
*/ 

int rndf (number) 
double number; 

{ 

double trash; 

if (modf (number .fttrash) > 0.5) return ceil(number) ; 
else return f loor (number) ; 

> 

/*******************************>m*******************************+************/ 
double square (x) 
double x; 

{ 

double result; 
result = x*x; 
return result; 

> 

/+********************************************************** ************** **♦*/ 
void rotate.point (x,y , angle) 
float *x,*y; 
float angle; 

{ 

double tx,ty; 
double r, theta; 
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tx = *x; 
ty = *y; 

/* 

* convert to polar 
♦/ 

r = sqrt(tx*tx + ty*ty); 
if ( (tx == 0 . 0) AA(ty==0 . 0) ) 
theta = 0.0; 
else 

theta = atan2(ty ,tx) ; 

/* 

* rotate point 

*/ ■ ■ ' ' ' - ‘ 

*x = (float) (r * cos (theta + angle)); 

*y = (float) (r * sin(theta + angle)); 

} 

/******************************************** t***********************, ********/ 

clear .array (array , size ) 
char *array; 
int size; 

{ 

int i ; 

for(i=0;i<size;i++) *(array + i ) = 0; 

> 

/********************************** ******************************** ****** ++ ^^*/ 
/* 

* callback proc to popdown the popup windows 
*/ 

void pop_down(w, client.data, call.data) 

Widget w ; 

caddr.t client_data, call.data; 

{ 

XtPopdown( (Widget ) client .data) ; 

> 

Z^*****************************************************************************/ 

/* 

* a function to activate a popup error window and display the 

* appropriate error message. 

*/ 

void Error .window (err.code .err.no^tr) 
int err. code, err.no; 
char *str; 

{ 

static char error.stringClOO] ; 

static Arg arg[] = { {XtNlabel, (XtArgVal) error. string} }; 
char temp [100]; 
switch (err. code) 

{ 

case 1 : /* file i/o error */ 
sprintf (error.string, ” X-Radar I/O Error : M )s 

sprintf (temp, "File ‘'/.s* Hot Found ... H ,str); 
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strcat(error_string,temp) ; 
break; 

case 2 : /* scale factors not set yet */ 
sprintf (error_string," X-RADAR Protocol Error : M ); 
sprintf (temp," Radar image scale factors not set ... "); 
strcat(error_string,temp) ; 
break; 

case 3 : /* trying to set scale factor in wrong mode */ 
sprintf (error_string," X-RADAR Protocol Error : H ); 
strcat(error_string,"Must be in single screen "); 
strcat(error_string,"mode to set scale factors."); 
break; 

case 4 : /* trying to set offsets in wrong mode */ 
sprintf (error_8tring," X-RADAR Protocol Error : "); 
strcat(error_string,"Must be in single screen "); 
street (error_string, "mode to set offsets."); 
break ; 

case 5 : /* trying to do shift ,etc. to ISAR image */ 
sprintf (error^string, " X-RADAR Protocol Error : ") ; 
street (error^string, "Function not available for "); 
streat (error_string,"ISAR images . ") ; 
break; 

case 6 : /* trying to rotate in wrong mode */ 
sprintf (error_string, " X-RADAR Protocol Error : "); 
strcat(error_string,"Must be in single screen "); 
strcat(error_string," mode to rotate image."); 
break; 

case 7 : /* bad filename : unable to open file */ 
sprintf (error_8tring, "X-RADAR I/O Error : "); 
strcat(error_string , "Bad file name , unable ") ; 
strcat(error_string , "to create or open file."); 
break; 

> 

XtSet Values ( error _butt on, arg,XtNumber(arg) ) ; 

XBell(XtDisplay(toplevel) , 100) ; 

XtPopup(error_popup,XtGrabNone) ; 

> 

/*****************************************************************************/ 

/* 

* write_video_f ile() — writes a video image to disk in binary format 
*/ 

write_video_f ile(fname , array) 
char f name [] ; 
char *array; 

{ 

/* open file for writing */ 
if((video_fp = fopen(fname,"wb")) == NULL) 

{ 

Error_window(7 ,0 ,fname) ; 

return(O) ; 

> 
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/* write video file to disk */ 

fwrite(array .sizeof (*array) , (512*512) ,video_fp) ; 

f close(video_fp) ; 

} /* end write_video_f ile() */ 

/*************************♦******************#+*******++*************♦********/ 
/* : - . 

* read_video_f ile() — reads video image file into named array memory, 

* initializes globals: mapchars, and video fp (file descriptor) 

*/ 

read_video_file (fname, array) 
char fname [] ; 
char *array; 

{ 

long i , j ; 

/* open video image file */ 

if((video_fp = fopen(fname, "rb")) == NULL ) 

Error_window(l ,0, fname) ; 
return(O) ; 

> :: ■■ : 

/* read video file into video array */ 
fread(array , sizeof (*array) , (512*512) ,video_fp) ; 
fclose(video_fp) ; 
return(l) ; 

> /*end read_video_file()*/ 

/***************************** *****:M* ******************************** ******/ 

/* 

* read_sif _f ile( ) — reads sif image file into named array memory, 

* initializes globals: mapchars, and video_fp (file descriptor). 

* Included to provide upward compatibility for SIF files (video image 

* files from MetraByte MV-1 software) . This function is not currently used. 

*/ 

read_sif .file (fname , array) 
char fname [] ; 
char *array; 

{ 

long i,j; 
char tl [256*240]; 
char t2 [256*240]; 
char t3 [256*240]; 
char t4 [256*240] ; 

/* open video image file */ 

if((video_fp = fopen(fname, "rb M )) == NULL ) 

Error_window(l ,0, fname) ; 
return(0) ; 

> 

/* read video file into video array */ 
fread(tl , Bizeof (char) , (256*240) ,video_fp) ; 
fread(t2, sizeof (char) , (256*240) ,video_fp) ; 
fread(t3, sizeof (char) , (256*240) ,video_fp) ; 
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fread(t4 , sizeof (char) , (256*240) ,video.fp) ; 
for(j=0; j <240*512; j+=512) 

{ 

f or(i=0; i<256 ; i++) array[i+j] = tl[i + j /2] ; 
for(i=0;i<256;i++) array [i+256+j] = t2[i + j/2] ; 

> 

f or ( j=0; j<240*512 ; j+=512) 

{ 

for(i=0;i<256;i++) array[i+j + 240*512] = t3[i + j/2]; 
f or(i=0; i<256 ; i++) array [i+256+j + 240*512] = t4[i + j/2]; 

> 

f close(video.fp) ; 
return(l) ; 

> /*end read_f ile()*/ 

/******************* ************************************************** ********/ 
/* a function to read in x,y,z,mag format radar data files. 

* 

+/ 

read.radar.f ile(fname) 
char fname[] ; 

{ 

float x,y,z,mag; 
int i; 

FILE *radar_fp; 

if ( (radar _fp = f open(fname, "r")) == HULL) 

Error .window (1,0, f name ) ; 
return(0) ; 

> 

f scanf (radar.fp, M, /,d */,f \n" jftnum.pnts^in.angle) ; 
f or(i=0 ; i<num_pnts ; i++) 

{ 

fscanf (radar.fp,’"/ t f V,f */,f y,d\n" ,ftx ,fty ,ftz ,*mag) ; 

radar.datafi] [0] = x; 

radar.data[i] [1] = y; 

radar . data [i] [2] = z; 

radar_data[i] [3] = mag; 

> 

f close(radar_fp) ; 

return(l); / * successful read of data file */ 

> 

/*****************************************************************************/ 
/* a function to create a "composite" widget which is like a dialog Widget, */ 
/* but which is^ easier to control. */ 

Widget CreateTextWidget (parent , label. str , cb.func , buff er, 

x.pos ,y_pos) 

Widget parent; /* parent of composite widget */ 

char *label.str; /* prompt string to display */ 

void (*cb_func) () ; /* pointer to callback function */ 

char *buffer; /* pointer to buffer to hold string */ 

int x.pos, y.pos; /* x,y position of popup */ 
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{ 

Widget popup, button, box, label, w; 

Arg args [10] ; 
int x_size, y_size; 
char geom_str [20] ; 

XtCallbackRec callback [2]; 

XtTranslations transjtable; 

/* 

* register new actions and compile the new translation table 
*/ 

XtAddActions (actionsTable.XtNumber (actionsTable) ) ; 
trans stable = 

XtParseTranslationTable(def aultTranslations) ; 

/* 

* create a popup shell for the text widget 
*/ 

/* first set up geometry string */ 
x_size = 450; 
y_size = 100; 

sprintf (geom_str , M, /,lix , /*li , ‘ ,x_size ,y_size) ; 

XtSetArg(args [0] , XtNx, x.pos); 

XtSetArg(args [l] , XtKy, y_pos) ; 

XtSetArg(args[2] , XtNgeometry , geom_str) ; 

Xt5etArg(args [3] , XtNallowShellResize , False) ; 

popup = XtCreatePopupShell ( "popup 11 , transientShellWidgetClass , 
parent ,args ,4) ; 

XtSetArg(args [0] , XtNheight, y_size) ; 

XtSetArg(args [1] , XtNwidth, x_size); 

XtSetArg(args [2] , XtNf oreground, fore) ; 

XtSetArg(args [3] , XtNbackground,back) ; 

box = XtCreateManagedWidget ( M box M ,boxWidgetClass , popup, args ,4) ; 
XtSetArg(args [0] , XtNlabel, label_str) ; 

XtSetArg(args [l] , XtNf oreground, fore) } - . _ 

XtSetArg(args [2] , XtNbackground,back) ; 

label = XtCreateManagedWidget ("label" ,labelWidgetClass , box , args ,3) ; 
/* 

* create an ascii string widget. 

*/ 

XtSetArg(args [0] , XtNeditType , (XtArgVal)XttextEdit) ; 

XtSetArg(args [1] , XtNstring, buffer); 

XtSetArg(args [2] , XtNwidth, (x.size-lOl) ; 

XtSetArg(args [3] , XtNlength, 40); 

XtSet Arg(args [4] , XtNf oreground, fore) ; 

XtSetArg(args [5] , XtNbackground,back) ; 

w = XtCreateManagedWidget ("string" , as ciiStringWidget Class ,box, 
args, 6) ; 

/* 

* create a button to close the box 

*/ . 

XtSet Arg(args [0] , XtNlabel, " OK ”); 

XtSetArg(args[l] , XtNforeground.fore) ; 
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Xt5etArg(args [2] , XtHbackground.back) ; 

button = XtCreateManagedWidget("command",commandWidgetClaBS, 

box, args,3) ; 


/* 

* add callbacks to pop down the box 
*/ 

XtAddCallback (button, XtHcallback,cb_func, buffer) ; 

XtAddCallback (button, XtNcallback, pop _down, popup) ; 

/* 

* Merge the defined translations with the existing 

* translations. 

*/ 

XtOverrideTranslat ions (w ,trans_table) ; 
XtSetKeyboardFocus (box ,w) ; 

XtRealizeWidget (popup) ; 

XSetWindowColormap(XtDisplay (popup) .XtWindow(popup) , 


cmap) ; 

return(popup) ; 

/******** *************************************** ****************************** ^ 
/* callback for the ScaleWidget. When executed it sets the sensitivity 

* of all the widgets within the ScaleWidget to false. The sensitivity 

* of the widgets is reset after the rubber band process has been completed. 

*/ 

void ClickOff (w , w_struct, call.data) 

Widget w; 

widget.struct *w_struct; 
caddr_t call_data; 


Arg arg[l] ; 

XtSetArg(arg[0] f XtNsensitive , False) ; 
XtSetValues(w_struct->widgetl , arg,l) ; 
XtSetValues(w_struct->widget2, arg,l) ; 

XtSet Values (w_struct->widget 3 , arg.l) ; 
XtSetValues(w_struct->widget4 , arg^l) ; 

== w_struct->widget 1) horizontal _fTag = True; 
else horizontal^ lag = False; 


/•*********************+***********«*********-******************************** / 
/* creates a "composite" widget for entering scale factors, etc. 

* 

Widget CreateScal eWidget (parent, label, label _strl, label _str2,cb_func , 

buf f erl ,buf f er2 ,w_struct ,x_pos ,y_pos) 

/* parent of composite widget +/ 

/* label for whole box */ 

/+ prompt strings to display */ 

/* pointer to callback function */ 

/* pointers to buffers to hold strings */ 


Widget parent; 
char *label; 
char *label_strl , 
*label_str2; 
void (*cb_func) () ; 
char *bufferl, 

♦buf fer2 ; 
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widget_struct *w_struct; /* pointer to structure to hold widgets +/ 
int x_pos, y_pos; / * x,y position of popup */ 

{ 

Widget popup, box, label 1, label2, wl, w2, cloBe_button; 

Arg args [10] ; 
int x_size, y_size; 
char geom_str[20] ; 

XtCallbackRec callback [2]; 

XtTranslations trans_table; 

/* 

* register new actions and compile the new translation table 
*/ 

XtAddActions (actionsTable,XtNumber(actionsTable) ) ; 
transit able = 

XtParseTranslationTable(def aultTranslations) ; 

/* 

* create a popup shell for the scale widget 
+/ 

/* first set up geometry string */ 
x_size = 500; 
y_size = 125; 

sprintf (geom_str, M %lix%li H ,x_size ,y_size) ; 

XtSetArg(args [0] , XtNx, x_pos) ; 

XtSetArg(args [Ij , XtNy, y_pos) ; 

XtSetArg(args [2] , XtNgeometry ,geom_str) ; 

XtSetArg(args [3] , XtNallowShellResize ,False) ; 
popup = XtCreatePopupShell( ,, popup i ' , transient ShellVidgetCiass, 
parent ,args ,4) ; 

XtSetArg(args [0] , XtNheight, y_size); 

XtSetArg(args [1] , XtNwidth, x_size); 

XtSetArg(arg8 [2] , XtNf oreground,f ore) ; 

XtSetArg(args [3] , XtNbackground.back) ; 

box = XtCreateManagedWidget ("box" .boxWidgetClass , popup, args ,4) ; 
XtSetArg(args [0] , XtNlabel, label); 

XtSetArg(args [1] , XtNf oreground, fore) ; 

XtSetArg(args [2] , XtNbackground,back) ; 

XtCreateManagedWidget ("label" ,labelWidgetClass , box, args ,3) ; 

XtS et Arg ( args [03 , XtNlabel, label_strl) ; 

XtSetArg(args [1] , XtNf oreground, fore) ; 

XtSetArg(args [2] , XtNbackground,back) ; 

labell = XtCr eateManagedWidget( "label” , commandWidgetClass , box, args ,3) ; 
/* 

* create an ascii string widget. 

*/ 

XtSetArg(args [0] , XtNeditType, (Xt ArgVal)XttextEdit) ; 

XtSetArg(args[l] , XtNstring, buff erl) ; 

XtSetArg(args[2] , XtNwidth, 110); 

XtSetArg(args[3] , XtNlength, 10); 

XtSetArg(args [4] , XtNf oreground, fore) ; 

XtSetArg(args [5] , XtNbackground,back) ; 

wl = XtCreateManagedWidget"( ,, string M ,asciiStringWidgetClass,box, 
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args, 6) ; 

/* 

* create another label and ascii string widget. 

*/ 

XtSetArg(args [0] , XtNlabel, label_str2) ; 

XtSetArg(args [1] , XtNf oreground, fore) ; 

XtSetArg(args[2] , XtNbackground.back) ; 

label2 = XtCreateManagedWidget (’’label" .commandWidget Class ,box,args ,3) ; 
XtSetArg(args [0] , XtNeditType, (XtArgVal)XttextEdit) ; 

XtSetArg(args [1] , XtNstring, buffer2); 

XtSetArg(args[2] , XtNwidth, 110); 

XtSetArg(args [3] , XtNlength, 10) ; 

XtSetArg(args [4] , XtNf oreground, fore) ; 

XtSetArg(args[5] , XtNbackground.back) ; 

w2 * XtCreateManagedWidget ("string" .asciiStringWidgetClass , box, 
args ,6) ; 

/* 

* create a button to close the box 
*/ 

XtSetArg(args [0] , XtNlabel, " OK "); 

XtSetArg(args[l] , XtNf oreground.f ore) ; 

XtSetArg(args [2] , XtNbackground.back) ; 

XtSetArg(args[3] , XtNsensitive .False) ; 

close.button = XtCreateManagedWidget ("command" .commandWidget Cl ass , 
box, args, 4); 

/* 

* add callbacks to pop down the box 
*/ 

XtAddCallback(close_button, Xt Neal lback ,cb_func .NULL) ; 
XtAddCallback(close_button, XtNcallback ,pop_down, popup) ; 

/* 

* fill in the structure for client _dat a and add callbacks 

* for the command labels. 

*/ 

w_struct->widget 1 = label 1; 
w_struct->widget2 = label2; 
w_struct~>widget3 = wl; 
w_struct->widget4 = w2 ; 
w_struct->widget5 = close_button; 

X t AddCal lback ( 1 abel 1 , Xt Ncallback , ClickOff .wjstruct) ; 
XtAddCallback(label2, XtNcallback .ClickOff ,w_struct) ; 

/* 

* Merge the defined translations with the existing 

* translations. 

*/ 

XtOverrideTranslations (wl ,trans_table) ; 
Xt0verrideTranslations(w2,trans_table) ; 

XtRealizeWidget (popup) ; 

XSetWindowColormap(XtDisplay (popup) ,Xt Window (popup) , 
cmap) ; 

return (popup) ; 
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> 

/***************************** ****************+******************** ***********/ 
/* a function to create a widget for error messages which must be acknowledged 

* by the user, ie) click on the widget to close the error message window 
*/ 

Widget CreateErrorWidget (parent) 

Widget parent ; 

{ 

Widget popup , box ; 

Arg args [10] ; 

XtSetArg(args [0] , XtNx, 400); 

XtSetArg(args [1] , XtNy, 900); 

XtSetArg(args [2] , XtNallowShellResize , True); 
popup = XtCreatePopupShell ( "popup" , transient ShellWidgetClass, 
parent ,args ,3) ; 

/* 

* create a box to go in the shell 
*/ 

Xt5etArg(args [0] , XtNf oreground, fore) ; 

XtSetArg(args [1] , XtNbackground, back); 

XtSetArg(args [2] , XtNtransient , True); 

XtSetArg(args [3] , XtNheight, 100); 

XtSetArg(args [4] , XtNwidth, 200) ; 

box = XtCreateHanagedWidget ( "box" y boxWidget Class , popup, args ,5); 

/* 

* create a button to go in the box; 

* only thing the button does is display the error message 

* and pop down the shell when selected. 

* Error message set in function Error_window( ) . 

*/ 

XtSetArg(args [0] , XtNf oreground, fore) ; 

XtSetArg(args [1] , XtNbackground, back); 

errorjmtton = XtCreateHanagedWidget ("error" ,commandWidgetClass , 
box, args, 2) ; 

/* 

* add callback to popdown the shell 

*/ 

XtAddCallback(error_button, XtNcallback, pop _down, popup ) ; 

XtRealizeWidget (popup) ; 

XSetWindowColormap (XtDisplay (popup) , XtWindow(popup) , 
cmap) ; 

return (popup) ; 

> 

/*****************************************************************************/ 
/* ExposeEvent event handler for the graphics widgets */ 
void RePaint (w , client_data, event) 

Widget w ; 

caddr^t cl ient.dat a; 

XEvent * event; 

{ 

int dest_x,dest_y , 
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width, height , 
count ; 

dest.x = event->xexpoBe.x; 
dest.y = event->xexpose .y ; 
width = event->xexpose .width; 
height = event->xexpose. height ; 
count = event->xexpose . count ; 
if ( ! count) 

{ 

if(w == winwidgetl) 

{ 

XPutImage(XtDisplay(w) ,XtWindow(w) , 
gel ,iml ,dest.x , dest.y , 
dest_x,dest.y , width ,height) ; 

AddRadar Image ( iml) ; 

> 

if(w == winwidget2) 

{ 

XPutImage(XtDisplay(w) ,XtWindow(w) , 
gel ,im2, dest.x, dest.y, 
dest.x, dest.y, width, height) ; 

AddRadar Imaged m2) ; 

> 

if(w == winwidget4) 

{ 

if (scrnl.flag) 

{ 

XPutImage(XtDisplay(w) ,XtWindow(w) , 
gel , im3, dest.x , dest.y, 
dest. x, dest.y , width, height ) ; 

AddRadarImage(im3) ; 

> 

else if (scm2.f lag) 

{ 

XPutImage(XtDisplay (w) ,XtWindow(w) , 
gel , im4 , dest.x , dest.y, 
dest.x, dest.y , width, height) ; 

AddRadarImage(im4) ; 

> 

> 

> 

XFlush(XtDisplay (w) ) ; 

} 

/♦ft**************************************************************************/ 

/* 

* A function to write a message on the screen immediately ( putting up 

* a message widget requires too much time due to buffering ) 

* 

*/ 

Wr it eMessage (message , window ,x ,y, color) 
char ^message; 
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Window window; 
int x,y ; 

unsigned int color; 

{ 

XSetForeground( display, gel, color); 

XSetFont (displayed ,font2->f id) ; 

XDrawImageString(display, window, gel ,x ,y .message , strlen(message) ) ; 
XSync(display ,0) ; 

> 


Appendix C 

X- RADAR Errors 


The recoverable errors which can be generated while using X-RADAR are listed 
below by the error message displayed for each. While unrecoverable errors will 
usually cause the program to crash, every attempt has been made to keep this 
from happening. 

C.l X-RADAR Error Messages 

1. ”X-RADAR I/O Error : File filename Not Found” 

While this error is fairly self-explanatory, it can also occur if no file name is 
entered at the prompt. Suggested remedies are making sure the file exists 
and is readable and checking the complete path and file extension spellings. 

2. ”X-RADAR Protocol Error : Must be in single screen mode to set scale 
factors.” 

Again, this error is self-explanatory. The reason this was implemented as an 
error was to lessen the possible visual errors in setting the scale factors. 

3. ”X-RADAR Protocol Error : Function not available for ISAR images.” 

This error covers a number of functions which were not implemented for 
ISAR images due to the format of ISAR images. While it is technically 
possible to apply these functions to ISAR images, it was decided to leave 
this work for the future. 
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4. ”X-RADAR Protocol Error : Must be in single screen mode to rotate image.” 
As described previously for setting the scale factors, a full-screen image is 
easier to see than a small image. 

5. ”X-RADAR Protocol Error : Must be in single screen mode to shift image.” 
Same as above. 
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Appendix D 

X-RADAR Data File Formats 


D.l Radar Image File Format 

Radar image files are formatted ASCII text files consisting of the number of scat- 
tering centers, the angle of incidence of the radar signal, followed by the x, y, z coor- 
dinates ( in inches from the phase center of the target ) and the magnitude of each 
scattering center ( normalized to 1.0 ) in the following format ( U = <space> ) : 
number of scattering centersUincident angle <ret> 
xUyUzUmagnitude <ret> 
xUyUzUmagnitude <ret> 

<eof> 

An example is given below : 

<tof> 

4 45.0 <ret> 

12.24 10.38 4.57 .87 <ret> 

4.08 5.67 7.99 .45 <ret> 

34.45 40.00 23.00 .33 <ret> 

27.99 30.12 12.87 .55 <ret> 

<eof> 
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D.2 Video Image File Format 


Video image files consist of row-column binary raster scan dumps of the 512x480 
image array. The data type of each pixel in the raster scan is ’unsigned short’ 
or ’byte’, with a value of zero representing the lowest brightness and a value of 
255 representing the highest brightness. The pixel data is written to the file as an 
unformatted stream, as shown below : 

<tof>pixell,rowl;pixel2,rowl;. . . ;pixel511,rowl;pixell,row2; pixel2,row2; 

. . . ;pixe!511,row480 <eof> 


D.3 ISAR Image File Format 

ISAR image files are of the same format as video image files but the data is scaled 
differently. Due to the look-up tables used for displaying the ISAR data, a pixel 
value of 0 represents no data, a value of 128 represents the lowest magnitude to be 
displayed and a value of 255 represent the highest magnitude to be displayed. 
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